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Abstract 


The  nonlinear,  stalled,  aeroelastic  behavior  of  rectangular, 
graphite/epoxy,  cantilevered  plates  with  varying  amounts  of 
bending-torsion  stiffness  coupling  and  with  NACA  0012  styrofoam 
airfoil  shapes  is  investigated  for  low  Reynolds  number  flow 
(<200,000).  A  general  Rayleigh-Ritz  formulation  is  used  to  calculate 
point  load  static  deflections,  and  nonlinear  static  vibration  frequen¬ 
cies  and  mode  shapes  for  varying  tip  deflections.  Nonlinear  lift  and 
moment  aerodynamics  are  used  in  the  context  of  the  Rayleigh-Ritz 
formulation  to  calculate  static  airload  deflections.  The  nonlinear, 
stalled  ONERA  model  using  non-constant  coefficients  —  initially 
developed  by  Tran  &  Petot  —  is  reformulated  into  a  harmonic  balance 
form  and  compared  against  a  time-marching  Runge-Kutta  scheme. 
Low  angle-of-attack,  linear  flutter  calculations  are  done  using  the 
U-g  method.  Nonlinear  flutter  calculations  are  done  by  applying 
Fourier  analysis  to  extract  the  harmonics  from  the  ONERA-calculated, 
3 -dimensional  aerodynamics,  then  applying  a  harmonic  balance 
method  and  a  Newton-Raphson  solver  to  the  resulting  nonlinear, 
Rayleigh-Ritz  aeroelastic  formulation. 

Test  wings  were  constructed  and  subjected  to  sutic,  vibration, 
and  wind  tunnel  tests.  Static  tests  indicated  good  agreement 
between  theory  and  experiment  for  bending  and  torsion  stiffnesses. 
Vibrations  tests  indicated  good  agreement  between  theory  and 
experiment  for  bending  and  torsion  frequencies  and  mode  shapes. 
2-dimensional  application  of  the  ONERA  model  indicated  good 
agreement  between  harmonic  balance  method  and  exact  Runge-Kutta 
time  integration.  Wind  tunnel  tests  showed  good  agreement  between 
theory  anrf  experiment  for  static  deflections,  for  linear  flutter  and 
divergence,  and  for  stalled,  nonlinear,  bending  and  torsion  flutter 
limit  cycles.  The  current  nonlinear  analysis  shows  a  transition  from 
divergence  to  stalled  bending  flutter,  which  linear  analyses  are 
unable  to  predict. 
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Chapter  I 

Introduction 

The  analysis  of  aircraft  flutter  behavior  is  traditionally  based 
on  small  amplitude,  linear  theory,  in  regards  to  both  structural  and 
aerodynamic  modeling.  However,  if  the  wing  is  near  the  stall  region, 
a  nonlinear  stall  flutter  limit  cycle  may  occur  at  a  lower  velocity  than 
linear  theory  would  suggest.  Moreover,  near  the  divergence  velocity, 
large  deflections  producing  angles  of  attack  near  the  stall  angle  may 
also  trigger  a  flutter  response.  Since  some  current  aircraft  are 
achieving  high  angle  of  attack  for  maneuvering,  and  since  rotorcraft 
may  use  long,  highly-flexible  blades  for  their  rotors,  it  is  of  interest 
to  investigate  both  this  nonlinear  stall  flutter  behavior  and  this  large 
amplitude  deflection  behavior,  and  their  transitions  from  linear 
behavior.  The  development  of  advanced  composite  materials  allows 
the  aircraft  designer  another  parameter  by  which  he  might  control 
these  new  behaviors  —  his  ability  to  control  the  anisotropy  of 
advanced  composite  materials  through  selective  lamination  makes 
these  materials  attractive  for  aeroelastic  tailoring. 

The  present  research  is  part  of  a  continuing  investigation  at  the 
Technology  Laboratory  for  Advanced  Composites  at  M.I.T.  into  the 
aeroelastic  flutter  and  divergence  behavior  of  forward-swept, 
graphite/epoxy  composite  wing  aircraft.  The  specific  objectives  of 
the  current  investigation  are  to  explore  experimentally  and  analyti¬ 
cally  the  roles  of  nonlinear  structures  and  nonlinear  aerodynamics  in 
high  angle-of-attack  stall  flutter  of  aeroelastically  tailored  wings, 
while  attempting  to  develop  a  nonlinear  method  of  analysis  that  is 
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not  overly  computationally  intensive,  i.e.  that  is  suitable  for  routine 
aeroelastic  analysis. 

Chapter  2  describes  some  of  the  previous  work  and  analytic 

approaches  used  to  grapple  with  the  problem  of  stall  flutter  of  com¬ 
posite  wings.  This  chapter  includes  a  description  of  some  of  the 
previous  work  at  TELAC  that  has  concentrated  on  the  beneficial 
effects  of  the  bending-torsion  coupling  of  composite  wings,  but  that 
has  mostly  been  relegated  to  linear  analysis.  It  also  describes  pre¬ 
liminary  work  in  the  current  investigation  that  sets  up  some  of  the 
analytic  models  that  have  been  chosen  to  approach  the  stall  flutter 
problem. 

Chapter  3  describes  the  theory  involved  in  the  current  work 
that  seeks  to  expand  on  and  improve  the  efforts  of  the  previous 

investigations,  described  in  Chapter  2.  Analytically,  it  was  endeav¬ 
ored  to  more  accurately  model  the  nonlinearities  over  the  prelimi¬ 

nary  investigation:  aerodynamic  nonlinearities  were  incorporated  in 
both  the  forcing  terms  and  in  the  equations  of  motion;  structural 
nonlinearities  were  developed  analytically  from  geometric  consid¬ 
erations. 

Chapter  4  describes  the  experiments  performed  so  as  to  cor¬ 
roborate  the  theoretical  analysis.  As  with  the  previous  work,  static 
tests  and  riln’ation  tests  were  employed  to  verify  mass  and  stiffness 
properties.  Experimentally,  the  wings  were  designed  so  as  to  better 
allow  an  investigation  of  the  linear-to-nonlinear  transition,  while  also 
improving  the  Reynolds  number  range.  The  experimental  procedure 
was  also  modified  so  as  to  acquire  more  data  on  larger  amplitude 
flutter  oscillation. 


Chapters  5  and  6  detail  the  products  of  the  theoretical  and 
experimental  investigations,  comparing  the  results  of  the  two,  with 
concluding  remarks  on  the  significant  contributions  of  the  current 
investigation  and  recommendations  for  further  work. 


Chapter  II 

Summary  of  Previous  Work 

2.1  Dynamic  Stall  Models 

Much  work  has  been  done  in  creating  a  large  base  of  dynamic 
stall  experimental  data  for  airfoils  in  sinusoidal  pitch  motion,  from 
which  might  be  developed  models  to  analytically  reproduce  their 
behavior.  The  intent  of  this  experimental  work  was  to  observe  the 
2-dimensional  dynamic  stalling  behavior  of  various  airfoils  while 
varying  a  large  number  of  parameters  —  such  as  airfoil  shape,  mean 
angle  of  attack,  amplitude  of  oscillation  of  angle  of  attack,  reduced 
frequency,  Mach  number,  Reynolds  number,  leading  edge  geometry, 
et  cetera.  Initial  work  was  done  Liiva  &  Davenport  [Ref.  1],  with  dis¬ 
cussion  of  the  effects  of  Mach  number.  Extensive  work  was  done  by 
McAlister,  Carr,  &  McCroskey  [Ref.  2]  in  producing  a  data  base  for 
the  NACA  0012  airfoil,  and  extended  by  McCroskey,  McAlister,  Carr, 
Pucci,  Lambert,  &  Indergrand  [Ref.  3]  and  by  McAlister,  Pucci, 
McCroskey,  &  Carr  [Refs.  4  and  5]  to  include  other  airfoil  shapes  and 
a  wider  range  in  the  variable  parameters.  The  general  conclusion  of 
these  experiments  was  that  the  parameters  of  the  unsteady  motion 
itself  appear  to  be  more  important  than  airfoil  geometry  —  however, 
most  of  these  experiments  were  conducted  for  deep  dynamic  stall, 
i.e.  vortex-dominated  cases.  Light  dynamic  stall  cases,  which  are  less 
severe  and  more  common  for  practical  applications,  appear  to 
depend  on  all  the  parameters  of  the  unsteady  motion. 


Coincidentally  with  these  experiments,  attempts  were  made  to 
identify  the  processes  that  make  up  the  dynamic  stall  event.  With 
the  aid  of  chordwise  propagation  of  pressure  waves  [Ref.  6],  flow 
visualization  [Ref.  7  and  8],  and  data  from  hot-wire  probes  and 
surface  pressure  transducers  [Ref.  2],  Carr,  McAlister,  &  McCroskey 
[Refs.  9  and  10]  identified  the  characteristic  processes  illustrated  in 
Fig.  1  [Fig.  27  from  Ref.  9].  However,  it  should  be  noted  that  the 
NACA  0012  airfoil  exhibits  trailing-edge  stall  —  i.e.  the  dynamic  stall 
phenomenon  originates  from  an  initial  boundary  layer  separation  at 
the  trailing  edge  —  while  other  airfoil  shapes  might  exhibit  leading- 
edge  or  mixed  stall  behavior. 

Because  of  the  prevalence  of  dynamic  stall  in  rotorcraft,  where 
the  drop  in  dynamic  pressure  for  a  retreating  blade  might  necessi¬ 
tate  angles  of  attack  beyond  the  stall  angle  so  as  to  maintain  lift, 
appropriate  modeling  of  the  dynamic  stall  phenomenon  has  been  a 
primary  concern  in  helicopter  design  for  over  two  decades.  Research 
in  this  area  has  followed  two  approaches,  one  theoretical  [Refs.  11 
to  30],  and  the  other  based  on  experimental  data,  also  called  semi- 
empirical  [Refs.  31  to  59],  These  research  efforts  are  well  summa¬ 
rized,  and  their  advantages  and  disadvantages  compared,  in  Refs.  10 
and  60-65. 

The  theoretical  approaches  are  the  discrete  potential  vortex 
approach,  zonal  methods,  and  Navier-Stokes  calculations.  The  dis¬ 
crete  potential  vortex  approach  [Refs.  1 1  to  17]  ignores  the  viscous 
terms  in  the  fundamental  equations  and  assumes  potential  flow 
without  the  boundary  layer.  This  type  of  model  takes  its  cue  from 


the  discrete  vortex  model  that  has  been  applied  to  bluff  body  sepa¬ 
ration  —  the  viscous  part  of  the  flow  is  taken  into  account  by  the 
generation  and  transport  off  the  leading  and  trailing  edges  of  dis¬ 
crete  combined  vortices,  governed  by  semi-empirical  or  boundary 
layer  considerations.  Zonal  methods  [Refs.  18  to  23]  model  sepa¬ 
rately  the  viscous,  nonviscous,  and  transition  regions  of  the  flow, 
under  the  assumption  that  the  viscous  region  usually  remains  rela¬ 
tively  thin.  The  limitations  and  approximations  of  the  discrete  vor¬ 
tex  and  zonal  methods  can,  in  principle,  be  avoided  by  solving  the 
full  Navier-Stokes  equations  [Refs.  24  to  30].  However,  turbulence 
must  be  modeled  —  many  solutions  incorporate  the  so-called 
Reynolds-averaged,  Navier-Stokes  equations  so  that  the  Reynolds 
stress,  which  vanishes  in  laminar  flow,  can  be  modeled  in  the  turbu¬ 
lent  case. 

These  three  theoretical  models  are  computationally  intensive 
and  are  limited  by  the  approximations  and  restrictions  of  their  for¬ 
mulations,  thus  usually  making  them  unsuitable  for  routine  aero- 
elastic  analysis. 

The  semi -empirical  methods  attempt  to  use  static  data  with 
corrections  for  the  dynamic  nature  of  the  dynamic  stall  event, 
choosing  to  model  only  the  gross  characteristics  of  the  phenomenon 
while  ignoring  the  fine  details  of  the  fluid  flow.  This  is  advantageous 
because  the  static  data  already  takes  into  account  the  effects  of 
Reynolds  number,  Mach  number,  and  airfoil  shapes,  and  because  the 
methods  are  therefore  not  as  computationally  intensive  as  the  theo¬ 
retical  methods,  thus  making  them  more  suitable  for  routine  aero- 
elastic  analysis.  These  semi-empirical  methods  are  the  Boeing-Vertol 


gamma  function  method,  the  UTRC  or  UARL  method,  the  MIT  Method, 
the  Lockheed  method,  time-delay  methods,  and  the  ONERA  method. 

The  Boeing-Vertol  gamma  function  method  [Refs.  31  to  33] 
uses  a  corrected  angle  of  attack  —  calculated  as  a  function  of  the  rate 
of  change  of  the  angle  of  attack  —  when  the  angle  exceeds  the  static 
stall  angle,  based  on  y>  the  essential  empirical  function  of  airfoil 
geometry  and  Mach  number.  The  UTRC  or  UARL  a.  A,  B  method 
[Refs.  34  to  36],  developed  at  United  Technologies  Research  Center, 
is  a  table-lookup  correlation  method  based  on  a  3-dimensional  array 
of  measured  data  (angle  of  attack,  reduced  pitch  rate,  reduced  pitch 
acceleration),  and  therefore  requires  a  large  amount  of  data  storage 
for  each  airfoil,  frequency  of  oscillation,  and  the  associated  interpo¬ 
lation.  Recent  advances  have  been  made  on  the  UTRC  method 
[Refs.  37  to  39]  to  reduce  these  large  volumes  of  data  into  compact 
expressions  (synthesization).  The  MIT  method  [Refs.  40  and  41], 
like  the  Boeing-Venol  method,  corrects  the  angle  of  attack  as  a  func¬ 
tion  of  its  rate,  but  empirically  represents  the  forces  due  to  the  vor¬ 
tex  shedding  phenomenon  for  ramp  changes  in  angle  of  attack,  such 
that  they  increase  linearly  to  the  peak  C^  and  Cj^  values  observed 
from  ramp  experiments.  The  Lockheed  method  [Refs.  42  to  45]  is  a 
combined  analytical  and  empirical  modeling  that  incorporates  phase- 
lag  time  constants  and  pitch-rate-dependent,  stall-angle  delay 
increments  into  an  effective  angle  of  attack,  together  with  a  number 
of  separate  dynamic  stall  elements  —  based  on  analogy  to  other 
dynamic  and/or  turbulent  flow  phenomenon  —  to  construct  the  aero¬ 
dynamic  forces.  Time  delay  methods  [Refs.  46  to  48]  assume  that 


each  dynamic  stall  event  is  governed  by  a  universal,  dimensionless 
time  constant,  regardless  of  the  time  history  of  the  motion. 

Finally,  the  ONERA  method  [Refs.  49  to  55],  developed  by 
Tran,  Petot,  &  Dat  of  Office  National  d'Etudes  et  de  Recherches 
Aerospatiales,  uses  a  second-order  differential  equation  with  non¬ 
constant  coefficients  to  model  the  deviation  of  the  dynamic  stall 
behavior  from  that  of  the  theoretical  linear  behavior,  with  a  fixed¬ 
time  stall  delay.  At  (usually  5  or  10).  The  parameters/coefficients  of 
the  differential  equations  are  derived  empirically,  usually  from  small 
amplitude-of-oscillation  experiments,  and  are  meant  to  reflect  the 
frequency  and  damping  of  the  dynamic  stall  processes.  Petot  & 
Loiseau  [Ref.  51]  indicate  how  the  ONERA  method  might  be  adapted 
for  Reynolds  numbers  below  the  critical  Re  value.  Petot  [Ref.  52] 
demonstrates  how  the  coefficients  of  the  differential  equations  might 
be  derived  from  a  few  large-amplitude-of-oscillation  cases,  instead 
of  a  large  number  of  small-amplitude-of-oscillation  cases,  thus  taking 
advantage  of  a  smaller  data  base  of  such  types  of  experiments. 
McAlister,  Lambert,  &  Petot  [Ref.  53]  demonstrate  a  systematic  pro¬ 
cedure  for  determining  the  empiric  parameters,  approaching  the 
problem  from  an  engineering  point  of  view.  Petot  &  Dat  [Ref.  54] 
reformulate  the  differential  equations  so  that  they  reduce  to  the 
Theodorsen  and  Kussner  functions  in  the  case  of  a  flat  plate  in  the 
linear  domain. 

Some  work  has  been  done  to  extend  these  empirical  methods 
from  purely  sinusoidal  pitching  motion  to  pitch  &  plunge  motion 
[Refs.  55  to  59].  In  particular,  Peters  [Ref.  55]  and  Rogers  [Ref.  56] 
present  physical  arguments  for  the  manner  in  which  the  pitching  and 


plunging  motions  should  be  separated  in  the  ONERA  differential 
equations.  In  general,  these  empirical  methods  are  employed  is 
some  type  of  stripwise  theoretical  fashion,  since  little  experimental 
or  analytical  work  has  been  done  on  the  3 -dimensional  effects  of 
dynamic  stall. 

2.2  Stniciural  Models 

For  a  flutter  analysis,  it  is  first  necessary  to  correctly  describe 
the  linear  structural  equations  of  motion  of  the  wing.  In  general,  this 
entails  accurately  modeling  the  linear  frequencies  and  mode  shapes, 
since  linear  flutter  usually  involves  the  coalescence  of  modes,  while 
nonlinear  stall  flutter  usually  involves  single  degree-of-freedom 
behavior. 

The  modeling  of  bending  and  torsion  modes  for  uniform  beams 
and  plates  is  already  well  established  [Refs.  66  and  67].  However, 
for  plates  which  are  uniform  along  the  span  but  anisotropic  in 
nature,  the  analytic  tools  have  only  recently  been  developed  because 
of  the  relative  newness  of  composite  materials.  Crawley,  Dugundji,  & 
Jensen  [Refs.  68  to  71]  have  set  up  the  appropriate  equations  of 
motion  and  have  determined  the  types  and  number  of  modes  to 
accurately  evaluate  the  natural  frequencies  and  mode  shapes  of 
composite  plates. 

Several  approaches  have  been  taken  to  account  for  the  geo¬ 
metric,  structural  nonlinearities  that  can  become  important  for 
aeroelastic  analysis  with  large  deflections.  Some  work  has  been  done 
using  the  Finite  Element  method  with  application  to  rotor  blades 
[Refs.  72  and  73].  Dugundji  &  Minguet  [Ref.  74]  have  developed  a 


model  based  on  Euler  angles  which  can  account  for  arbitrarily  large 
deflections,  and  in  which  the  equations  of  motion  are  solved  by  a 
Finite  Difference  scheme. 

However,  many  of  the  approaches  for  long,  flexible  blades 
involve  ordering  schemes,  which  rely  on  being  able  to  identify  non¬ 
linear  terms  of  various  orders,  and  truncating  the  equations  of 
motion  accordingly  [Refs.  75  to  77].  Such  a  formulation,  by  Hodges 
&  Dowell  [Ref.  75],  can  be  implemented  for  an  analysis  where  it  is 
assumed  that  out-of-plane  bending  is  moderate  in  amplitude,  while 
torsion  and  fore-&-aft  bending  are  relatively  small.  This  model 
derives  the  equations  of  motion  by  Hamilton's  principle  for  long, 
straight,  slender,  homogeneous,  isotropic  beams,  and  is  valid  to 
second  order.  Its  ordering  scheme  assumes  that  the  squares  of  the 
bending  slopes,  the  torsion  deformation,  and  the  chord/radius  and 
thickness/radius  ratios  are  negligible  with  respect  to  unity.  The 
equations  can  also  be  converted  into  a  modal  formulation,  as  has 
been  done  by  Boyd  [Ref.  78].  However,  little  work  has  been  done  to 
modify  these  nonlinear  structural  equations  to  account  for  the 
anisotropy  of  composite  materials. 

Other  nonlinear  work,  such  as  that  by  Tseng  &  Dugundji 
[Refs.  79  and  80],  has  noted  the  often  encountered,  cubic  stiffening 
phenomenon  of  many  nonlinear,  structural  vibration  problems. 

2.3  Stall  Flutter  Analysis 

The  characteristics  of  —  and  factors  affecting  —  stall  flutter 
have  been  identifled  in  early  work  by  Halfman,  Johnson,  &  Haley 
[Ref.  81]  and  by  Rainey  [Refs.  82  and  83]:  (i)  there  is  a  sharp  drop 


in  the  critical  flutter  speed,  (ii)  the  flutter  frequency  rises  toward  the 
torsional  frequency,  and  (iii)  the  motion  is  predominantly  torsional, 
i.e.  single  degree  of  freedom  flutter.  These  characteristics  are  quite 
distinct  from  those  of  classical  linear  flutter  where  the  unsteady 
instability  is  generated  from  the  coalescence  of  bending  and  torsion 
modes  and  frequencies.  Additional  experimental  work  has  been 
done  by  Dugundji,  et  al.  [Refs.  84  and  85]  to  investigate  the 
2-dimensional,  large-amplitude,  stall  flutter  behavior  of  a  flat  plate 
with  a  linear  torsional  spring. 

Weisshaar,  et  al.  [Refs.  86  to  89]  have  concentrated  on  the 
aeroelastic  advantages  of  using  composite  materials.  This  work  has 
investigated  the  parameters  of  layup,  sweep,  taper,  aspect  ratio,  etc. 
for  such  applications  as  flutter  &  divergence  suppression,  lift  effec¬ 
tiveness,  control  effectiveness,  and  mode  shape  &  frequency  tailor¬ 
ing.  In  general,  the  models  used  were  2D  strip  theory  for  aerody¬ 
namics,  and  a  comparison  of  high  aspect  ratio  plate,  chordwise  rigid, 
and  laminated  tube  models  for  structures. 

Recent  work  at  M.I.T.  by  Dugundji,  et  al.  [Refs.  90  to  92]  has 
concentrated  on  taking  advantage  of  bending-torsion  coupling  for 
flutter  modeling.  These  investigations  at  the  Technology  Laboratory 
for  AdviTod  Composites  (TELAC)  looked  at  the  aeroelastic  flutter 
and  divCTgence  behavior  of  cantilevered,  unswept  and  swept, 
graphite/epoxy  wings  in  a  small,  low-speed  wind  tunnel.  The  wings 
were  six-ply,  graphite/epoxy  plates  with  strong  bending-torsion 
coupling.  Experiments  were  conducted  to  determine  the  flutter 
boundaries  of  these  wings  both  at  low  and  high  angles  of  attack,  stall 
flutter  often  being  observed  in  the  latter.  Hollowell  &  Dugundji 


[Ref.  90]  presented  the  first  of  these  aeroelastic  investigations,  with 
linear  structures  and  V-g  linear  flutter  analysis  applied  as  strip 
theory.  Selby  [Ref.  91]  extended  this  same  aeroelastic  analysis  by 
applying  a  doublet  lattice  aerodynamic  model.  Landsberger  & 
Dugundji  [Ref.  92]  further  extended  this  analysis  to  include  wing 
sweep,  with  the  3D  Weissinger  L-method  for  steady  aerodynamics. 
The  divergence  and  flutter  results  at  low  angles  of  attack  correlated 
well  with  linear,  unsteady  theory,  indicating  some  beneficial  effects 
of  ply  orientation  in  aeroelastic  behavior.  Steady,  nonlinear  aerody¬ 
namics  correlated  reasonably  before  the  onset  of  flutter,  but  none  of 
these  previous  analyses  attempted  to  tackle  the  nonlinearities  that 
occurred  due  to  dynamic  stalling  and  large  amplitude  deflections. 

Harmonic  balance  methods  have  been  used  as  a  means  to 
approach  such  nonlinear  problems  [Ref.  93].  While  these  methods 
do  not  model  the  fine  details  of  the  nonlinear  motion,  as  would  time 
marching  schemes,  they  are  suitable  for  describing  the  gross  aspects 
of  the  solution  if  the  nonlinearity  is  sufficiently  moderate.  Therefore, 
they  seem  particularly  suited  to  stall  flutter  analyses,  since  most  of 
the  semi-empirical  aerodynamic  models  likewise  choose  to  ignore  the 
fine  details  of  the  fluid  flow. 

Most  recently  the  work  at  M.l.T.  has  been  extended  by  Dunn  & 
Dugundji  [Refs.  94  and  95]  to  investigate  the  nonlinearities  in  the 
flutter  behavior  of  composite  wings  —  this  constituted  a  preliminary 
effort  toward  the  current  investigation.  The  ONERA,  semi-empirical, 
aerodynamic  model  was  applied  in  a  2D  stripwise  fashion,  with 
empirical  corrections  for  Reynolds  number  and  3D  effects.  However, 
the  aerodynamic  nonlinearities  were  modeled  in  the  aerodynamic 


forcing  terms  only,  i.e.  the  nonlinear  effects  on  the  natural  frequency 
and  damping  of  the  stalled  behavior  were  not  modeled  in  a  time 
varying  fashion  and  would  therefore  break  down  for  large  ampli¬ 
tudes  of  oscillation.  The  structural  model  was  linear,  with  empirical 
corrections  for  cubic  stiffening,  and  the  combined  equations  of 
motion  were  reduced  algebraically  by  a  harmonic  balance  method. 

Corresponding  to  this  analytic  work,  experimental  work  was 
conducted  to  verify  these  analytic  models.  Experimental  static  tests 
and  vibration  tests  were  conducted  to  verify  the  mass  and  stiffness 
properties  of  the  wings.  Small-amplitude  flutter  experiments  were 
conducted  to  corroborate  the  analytic  flutter  model.  However,  the 
linear  flutter  velocity  of  the  wings  was  above  the  wind  tunnel  veloc¬ 
ity,  precluding  experimental  investigation  of  transition  from  pure 
linear  to  stalled,  nonlinear  behavior.  Also,  while  the  analytic  model 
existed  to  investigate  larger  amplitude  flutter  oscillation,  little  of 
such  data  was  taken  experimentally. 

The  principal  contributions  of  this  preceding  work  were  the 
reduction  by  harmonic  balance  and  Fourier  analysis  of  some  of  the 
parameters  of  the  nonlinear  ONER  A  equations;  the  analytic  investi¬ 
gation  of  some  of  the  single  degree  of  freedom,  stall  flutter  phenom¬ 
ena;  and  the  preliminary  development  of  an  experimental  base  of 
data  for  stall  flatter  of  composite  wings.  However,  this  initial  work 
fails  to  incorporate  any  analytic,  structural  nonlinearities;  ignores 
some  of  the  salient  features  of  the  ONERA  equations  in  its  application 
of  the  harmonic  balance  method;  and  requires  further  accumulation 
of  large  amplitude  of  oscillation  data. 


Chapter  III 

Theory 

3.1  Structural  Model 


3.1.1  Anisotropic  Plate  Modulus  Components 

The  flexural  modulus  components  of  a  laminated, 
graphite/epoxy  plate  depends  on  both  the  fiber  orientations  and 
stacking  sequence  of  the  individual  plies.  Only  laminated  plates  with 
mid-plane  symmetric  stacking  sequences  were  constructed  in  this 
study.  The  ply  angles  (0)  follow  the  sign  convention  in  Fig.  2. 

The  in-plane,  unidirectional  modulus  components  Q^j  were 
obtained  from  the  orthotropic  engineering  constants  for  Hercules 
AS4/3501-6  graphite/epoxy,  from  which  the  test  specimens  were 
fabricated.  These  engineering  constants  take  on  different  values 
depending  on  whether  they  are  obtained  from  out-of-plane  bending 
or  in -plane  stretching  tests.  Engineering  constants  obtained  from 
each  type  of  test  appear  in  Appendix  A,  and  the  out-of-plane  values 
were  used  in  the  current  analysis  because  in-plane  stretching  was 
assumed  to  be  negligible.  The  Qjj  terms  are  defined  in  terms  of  the 
engineering  constants  as. 


(3-1) 


Q„  = 


1  - VlxVjl 


(3-2) 


Jr _ 
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(3-3) 


Qi2  ”  Q2I  ” 


_ _ 

1  -  VljVjl 


(3-4)  Q66“^LT 

where. 


The  in-plane,  rotated  modulus  components  were  obtained  by 
first  deHning  a  set  of  invariants, 

(3-6)  I,  =j[Q„+Q22  +  2Q,j1 

(3-7)  I2  =  8  [Qll  +  Q22  ■  2Q12  * 

(3-8)  Ri=2[QiI-Q22) 

(3-9)  *^2  ”  8  "*■  ^22  '  ^Qi2  '  ^66^ 

The  invariants  are  transformed  to  the  rotated  modulus  compo¬ 
nents  using  the  relations, 

(3-10)  Q|  =  Ij  +  Ij  +  RjCos20  +  R2COS40 

(3-11)  Qz?  =  +  I2  ■  RiCos20  +  R2COS40 

(3-12)  Qi2  =Il  -I2  'R2COS40 
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(3-13)  (^6^  =  -  R2COS40 

(3-14)  =  2  RiSin20  +  R2sin40 

(3-15)  (^®^  =  jRjSin20  -  R2sin40 


where  0  is  the  ply  angle. 

The  flexural  modulus  components,  Djj,  for  an  n-ply  laminate 
with  arbitrary  ply  angle  orientation  are  obtained  from, 


(3-16) 


(3-17) 


i,j  =  1,2,6 


where, 

6^  s  ply  angle  of  the  k-th  ply 

s  distance  from  the  mid-plane  to  the  upper  surface  of  the 
k-th  ply  (positive  above  mid-plane,  negative  below 
mid-piane) 

Zv  I  =  distance  from  the  mid-plane  to  the  lower  surface  of  the 
k-th  ply 


3.1.2  Equations  of  Motion  with  Geometric  Nonlinearities 

The  equations  of  motion  for  a  cantilevered  beam  are  obtained 
from  Hamilton's  principle.  This  representation  can  include  spanwise 
variations  in  mass  and  stiffness  properties.  The  usual  expression  for 
strain  energy  —  in  local  coordinates  x  spanwise,  r\  chordwise,  and  ^ 
out-of-plane  (see  Fig.  3,  taken  from  Hodges  &  Dowell  [Ref.  13])  —  in 
terms  of  engineering  stresses  and  strains  is, 

(3-19)  U  =  +  o,;e^;)dV 

For  an  isotropic  material,  one  usually  sets  =  0  for 

beam  theory.  For  an  anisotropic  material,  however,  it  is  usually  nec¬ 
essary  for  consistency  to  instead  set  =0  —  since  the 

relations  =  Ee^^,  etc.  no  longer  hold  —  and  then  condense  the 
stress  strain  relationships  so  that  and  are  eliminated.  For 

the  current  investigation,  this  more  exact  procedure  of  condensation 

has  been  avoided,  although  all  the  relations  that  will  be  derived  are 

* 

still  valid,  simply  with  condensed  values  (D||,  etc.)  replacing  non- 
condensed  values  (Djj,  etc.)  as  in  Ref.  74.  After  having  eliminated 
and  whether  by  condensation  or  by  setting  to  zero,  the 
first  variation  of  the  strain  energy  is  given  by, 

(3-20)  8U  =  ij/J(o„8€„  + 

The  strain  components,  after  having  been  reduced  to  second 
order  by  the  appropriate  ordering  scheme,  are  as  given  by  Hodges  & 
Dowell  [Ref.  75], 


(3-21) 


v'2  yf’2  0*2 

®xx  ~  *  <^0*  0  -  C  sin  0]  v' 

-  (ti  sin  0  +  C  cos  0]  w" 


(3-22) 


-xr\ 


={‘'5>' 


For  a  thin  plate  the  warping  function  can  be  approximated  by, 
^  *  C  Vti^+C^  ■  ^C.  and  therefore  the  strain  components  can  be  approx¬ 
imated  by, 

v'2  ^'2  0*2 

(3 -23 )  ^xx^Y’ cos  0  -  ;  sin  0]  v" 

-  (il  sin  0  +  C  cos  0]  w" 


(3-24)  e,^  =  -2;0* 

Taking  the  variational  of  the  strain  components  gives, 

(3-25)  *  v*8v'  +  w’Sw*  +  .  tiC50" 

-  (“n  cos  0  -  C  sin  0)  (5v"  +  w"50) 

-  (11  sin  0  +  C  cos  0]  (6w"  -  v"50) 


(3-26)  ae,^*-2;8e’ 

Snbttituting  the  expressions  for  the  variational  of  the  strain 
components,  and  into  the  equation  for  the  strain  energy 

variation,  5U,  we  get  an  expression  in  terms  of  the  stress  and 
moment  resultants  (see  Fig.  3), 
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(3-27) 

6U  =  J  {  V^(v'5v'  +  w’5w')  +  (S^  +  T^)8e'  +  P^5e'' 

0 

+  [M^cos  0  +  sin  0]  (5v'’-«-w"50) 

+  [M^  sin  0  -  cos  0]  (5w"-v"50) }  dx 

where  the 

stress  and  moment  resultants  are  defined  as, 

(3-28) 

V,  =  JJo,, dn  d;  =  IIKqSV^,  *  Q'lV'xn)  <*« 

(3-29) 

s,  •  dn  dC  =  +  Q(;Ve,.,)  d?  d,. 

(3-30) 

t,  =JJe'o„(ti^-^C^)dT,d(; 

=  JlJ(n^+;^)e'(QlVE„  +  Q‘iV',.,)  d;dn 

(3-31) 

Px  =  ll-’ic  «xx  dn  dc  =  *  Q<,V^„)  dc  dll 

k 

(3-32) 

M,  •  JJC  Oxx  dn  dC  =  JS  JC(QSV^x  *  QW'xO  d?  dn 

k 

(3-33) 

■  JJ-n  ®xx  dl  dC  =  /l/-n(QSV'xx  +  Q'lV'xxi)  d; dn 

k 

From  equations  (3-27),  (3-29),  and  (3-30)  one  can  see  that 
and  are  respectively  the  shear  and  longitudinal  stress  contribu¬ 
tions  to  the  twisting  moment  resultant,  i.e.  Also,  from 

equations  (3-27)  and  (3-31)  one  can  see  that  is  the  torsional 
warping  term  in  the  strain  energy  equation.  Finally,  note  that  the 
axial  stress  and  moment  resultants  use  the  subscript  x  instead  of  %  as 


24 


in  Fig.  3,  because  the  deflections  are  only  moderate  and  so  they  are 
almost  equal,  i.e.  -  V^,  et  cetera. 

Substituting  the  previous  nonlinear  values  for  Exx  ^d  Ext^  and 
the  evaluation  of  the  integrals  through  the  thickness  by  the  appro¬ 
priate  flexural  stiffness  values,  we  get. 


(3-34)  V, 


=  2  2 


Y'  +  ®  ■  v"sin9] 


-  EB3  e* 


(3-35)  =  GJj^e*  +  Eljg(w”cos0  -  v”sin0) 

wl'i  ..ef 

■  1  2  2  I  ■  2 


(3-36)  =  EAkj0'^^  +  -  EB2*0*(w"cos0  -  v"si 

-  EB4*0'2 


sin0) 


(3-37)  P,  =  ECjO"  +  Eq  (V-COS0  +  w"sin0) 


(3-38)  =  Eq(v"sin0  -  w"cos0)  -  Eljg0’ 

will 

+  EAe^  2  2  2 


(3-39)  =  EI^(v"cos0  +  w”sin0)  +  EC**0" 

where  the  stiffness  properties  are  defined  as, 

(3-40)  EA  =  JX  jQ/J'dC  dn  =  cA, , 

k 
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(3-41)  EAe;  =  jXjCQi'f'dCdii  =  cB,j 

k 

(3-42)  El  =JXj;^Ci'l‘>dCdn  =cD,i 

k 

(3-43)  El5  =  JXKC4‘i‘'dCdn 

k 

(3-44)  Eq"  =  JXK;q‘f>dC  d7l  =f^„ 

k 

(3-45)  EC,  =  JXj»lVq<f*d;dn=f5D„ 

k 

(3-46)  EAkJ  =  JXj(Ti2.fC2)q(j.)j5  =f5A„  +  cD„ 

k 

(3-47)  EBj“  =  JX/Wn^  +  C^)Q{V  d;  dn  =f5Bii  +'S|C’QiV  ‘'C 

k  k 

(3-48)  GJ.  =  JlJCZO^C^’d;  dn  =  4cDjj 

k 

(3-49)  EI„=  JXj2i;^Ql<J>dC  dn  =  2cD,  j 

k 

(3-50)  EB3**=  JXJ2;Q/J>d;  dn  =  2cB,j 

k 


(3-51)  EB”  =  j£j2i;(ri^ dT, 


=  2  11816  + <=11^6*  Oi 

k 


It  should  be  noted  here  the  differences  between  the  above 
formulation  and  that  derived  by  Hodges  &  Dowell  [Ref.  75].  Firstly, 
the  derivation  and  values  for  EA,  EAk^,  EI^,  EI^,  GJj^,  and  ECj  are  the 
same.  Secondly,  the  derivation  and  values  for  EAe^,  EB^*,  and  EC^ 
are  not  the  same  as  for  EAe^,  EB^,  and  EC*  in  Ref.  75  —  but  they  are 
of  the  same  form  because  the  constants  in  the  first  set  are  derived 
from  the  asymmetry  in  stiffness  in  the  through-the  thickness 
^-direction,  in  fashion  similar  to  that  in  which  the  constants  in  the 
second  set  are  derived  from  the  asymmetry  in  geometry  in  the 
chordwise  -direction.  Lastly,  the  EIj^,  EBJ*,  and  EBJ*  are  new  con¬ 
stants,  not  appearing  in  the  Hodges  &  Dowell  formulation,  that  result 
from  the  bending-shear  coupling  from  the  stacking  sequence  of  an 
anisotropic  material. 

For  a  symmetric  layup  such  as  those  considered  in  this  investi¬ 
gation,  EAe^,  EB^*,  EC|**,  EB^*,  and  EB^*  are  all  zero.  Also,  there  is  no 
spanwise  loading  in  the  x-direcdon,  so  is  constant  along  the  span, 
which  indicates  that  from  the  root  cantilevered  conditions. 

Incorporating  the  easily-derived  kinetic  energy  and  generalized 
force  terms,  and  applying  integration  by  parts,  yields, 

(3-52)  [M^sine  -  M^cosBl"  +  mw  = 


(3-53) 


[M^cos6  +  M^sinSJ"  +  mv  = 


(3-54)  p;;  -  (S^+T^y  -  v"[Mj.sin0  -  M^cos0] 

+  w"(M^cos0  +  M^sin01  +  a 

Substituting  in  the  previously  derived  stress  and  moment 
resultants  gives, 

(3-55)  j^(EI^cos^0  ->■  EI^sin^0)  w"  +  (EI^-EI^)cos0  sin0  v" 

+  Eljg  0’  COS0  I  +  miv  =  Lw 

(3-56)  ^(EI^cos^0  +  EI^sin^0)v”  +  (EI^-EI^)cos0  sin0  w" 

-  Eljg  0’  sin0  I  +  mv  =  Lv 

(3-57)  [eAkJ 8'  ^  +  '5^1  .  (4cDjje')'  +  (Ec,e-)- 

+  (EI^-EI^){(w"^-v"^)  cos8  sin0  +  v"w"  cos2d] 

-  ^EI|g(w"cos0-v"sin0)J 

-  EIjg0'(v"cos8+w"sin0)  +  i^^©  =  Mg 

Assume  first  a  small  amplitude  vibration  problem  around  a 
mean  deflection.  Now  also  assume  an  ordering  scheme  such  that  the 
mean  out-crf-plane  deflection  is  moderate,  while  the  torsion  and  fore- 
&-aft  mean  deflections  are  very  small  —  i.e.  that  wss«^+w,  v^v+v,  and 
8=04$,  where  the  overbar  indicates  mean  and  the  tilde  indicates 
small  deviation,  and  «f/£=:0(l),  v/£=0(e),  and  0=O(e).  With  these 
assumptions,  and  dropping  the  tildes  to  indicate  small  deviation,  the 
linearized  form  of  the  above  equations  is. 


(3-58)  EI^w*'' +  Eljg0'"  +  mw  =  Lw 

(3-59)  EIj.v*''  +  (EIj.-EI^)(w"er  +  mV  = 

(3-60)  -GJjjG"  +  ECje*''  +  (EI^-Ey(w"20+v"w")  -  EIj^w’"  +  i^0  =  Mg 

Note  first  that,  again  because  is  zero,  the  first  term  from 
equation  (3-57)  —  involving  v’^  and  w’^  —  drops  out.  This  is  because, 
as  can  be  seen  from  equation  (3-34),  if  Vj^=0  and  the  layup  is  sym- 
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metric  then  the  first  term  in  equation  (3-57)  becomes  -EAk^0’-*, 
which  drops  out  as  a  higher  order  term.  Note  also  that  equations 
(3-58)  to  (3-60)  involve  only  the  dynamic,  small  deviation  terms  of 
equations  (3-55)  to  (3-57)  —  another  three  equations,  similar  in  form 
but  without  the  mass  terms,  also  result  so  as  to  describe  the  mean 
deflections. 

3.2  Aerodynamic  Model 

3.2.1  The  ONER  A  Aerodynamic  Model 

The  aerodynamic  model  used  for  this  study  was  initially  devel¬ 
oped  at  OJfice  National  d’Etudes  et  de  Recherches  Aerospatiales  by 
Tran  &  Petot  [Ref.  49]  and  by  Dat  &  Tran  [Ref.  50].  This  ONERA 
model  it  t  semi-empirical,  unsteady,  nonlinear  model  which  uses 
quasi-linear,  small  amplitude  of  oscillation,  experimental  data  to 
predict  aerodynamic  forces  on  an  oscillating  airfoil  which  experiences 
dynamic  stall.  The  model  incorporates  a  single  lag  term  operating  on 
the  linear  part  of  the  airfoil’s  static  force  curve,  thus  analogous  to  the 
Theodorsen  function  for  linear  theory,  and  a  two  lag  term  operating 
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on  the  nonlinear  (i.e.  stalling)  portion  of  the  airfoil’s  static  force 
curve. 

The  ONERA  model  was  later  investigated  by  Peters  [Ref.  55] 
who  differentiated  the  roles  of  angle  of  attack  due  to  pitching  (6)  and 
angle  of  attack  due  to  plunging  (hAJ).  The  final  form  of  the  ONERA 
model  used  for  this  study  incorporates  all  terms  needed  such  that  it 
fits  the  theoretical  Theodorsen  and  Kussner  coefficients  within  the 
linear  domain  of  operation  [Ref.  54], 


(3-61) 

“  ^zi  ^z2 

(3-62) 

^zl  “  ^z“  '*■  Krz  ®  ^ZY 

(3-63) 

ki  *  9  ] 

(3-64) 

••  •  1  dAC 

C22  +  +  IC,2  =  ■  rACj^  -e 

] 

a 

where  the 

effective  angle  of  attack  and  time 

derivative  are. 

(3-65) 

« 

a  =  0  -  Ti 

(3-66) 

a( )  Ut 

<  >"  a,  =  b 

and. 

6  =  instantaneous  angle  of  attack 
h  =  instantaneous  deflection  of  1/4-chord 
n  *  ^  =  non-dimensional  deflection 
a  =  effective  angle  of  attack 
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Fig.  4  Description  of  static  curve 


Note  first  that  in  equation  (3-64)  both  forms  of  notation  for  the 
non-dimensional  time  derivative  have  been  used,  B/dx  and  (*)  —  this 
is  only  a  matter  of  convenience  of  notation  since  it  is  awkward  to  use 
the  (*)  notation  over  AC^,  and  there  is  in  fact  no  difference  in  the  two 
time  derivatives  used  on  both  sides  of  equation  (3-64). 

represents  any  of  the  three  relevant  non-dimensional  force 
coefficients:  C^,  the  coefficient  of  lift,  or  Cq,  the  coefficient  of  drag,  or 
Cj^,  the  moment  coefficient,  a^^  is  the  slope  of  the  linear  part  of  the 
static  force  curve,  AC^  is  the  nonlinear  deviation  from  the  extended 
linear  force  curve,  and  s^,  ®z’  ®z’  ®  coefficients 

associated  with  the  appropriate  force  coefficient,  determined  empiri¬ 
cally  by  parameter  identification.  These  force  coefficients  are  listed 
in  Appendix  D. 

Equations  (3-62)  and  (3-63)  describes  that  part  of  the  force 
coefficient  associated  with  the  linear  model  C^j,  and  are  similar  in 
form  to  the  description  of  unsteady,  linear  theory  with  a  first  order 
lag  for  the  Theodorsen  function.  C,„  is  the  linear  circulatory  contri- 
bution,  while  is  the  total  linear  contribution,  also  incorporating 
the  apparent  mass  terms.  Equation  (3-64)  describes  that  part  of  the 
force  coefficient  associated  with  the  nonlinear  model 
dependent  on  the  deviation  of  the  actual  static  curve  from  the  linear 
static  curve,  AC^,  as  shown  in  Fig.  4.  It  also  includes  a  second  order 
lag  for  C^2'  Equation  (3-61)  combines  these  linear  and  nonlinear 
terms  of  the  force  coefficient  into  the  total  coefficient  C^. 

For  implementation  of  the  ONER  A  aerodynamic  model,  it  is  nec¬ 
essary  to  describe  the  static  aerodynamic  force  curves  in  terms  of 
the  linear  domain,  described  by  the  linear  slope  a^^,  and  the  non- 


linear  domain,  described  by  the  deviation  from  the  linear  curve  AC^, 
The  deviation  AC^  is  defined  as  positive  for  a  decrease  in  the  aerody¬ 
namic  force,  as  shown  in  Fig.  4,  The  general  description  of  the  static 
aerodynamic  force  curve  is  then  given  by, 

(3-67)  C,>)  =  a^^a  -  AC,(a) 

where, 

dC,^ 

(3-68)  ~  aerodynamic  force  slope 

In  general,  the  deviation  AC^  can  be  described  in  any  manner 
desired.  In  the  current  study,  the  deviation  AC^  was  described  by 
simple  straight  line  fits  between  discrete  points  (see  Appendix  C). 
More  generally,  the  AC^  could  be  described  by  polynomials  in  several 
regions  of  the  aerodynamic  force  curve.  Polynomials  of  order  Jj  are 
used  for  ease  of  algebraic  manipulations  in  the  Fourier  analysis, 
described  later  in  Section  3.2.2. 

The  general  formula  for  the  deviation  AC^  in  the  i-th  region  can 
then  be  expressed  as, 

(3-69)  AC2(a)  =  ^ajj(a  -  a.)i  ;  s  a  S 

j=0 

where, 

(3-70)  aio*AC^(aj) 

(3-71)  AC2(a=aj)«0 
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Equation  (3-68)  ensures  that  the  description  of  the  aerody¬ 
namic  force  curve  is  continuous  at  the  juncture  of  the  describing 
domains.  Equation  (3-69)  ensures  that  the  deviation  is  identi¬ 
cally  zero  in  the  linear  region  before  stall.  The  description  of  the 
aerodynamic  force  coefficients  used  in  the  current  study  is  more 
fully  described  in  Appendix  C. 

3.2.2  Fourier  Analysis  of  Nonlinear  Aerodynamic  Forcing  Terms 

For  later  use  in  the  Harmonic  Balance  Method,  it  is  necessary  to 
be  able  to  evaluate  the  lowest  order  frequency  components  of  the 
nonlinear  aerodynamic  force  coefficients  when  given  a  harmonic 
input.  First,  harmonic  motion  is  assumed  for  the  angle  of  attack  and 
the  non-dimensional,  1/4-chord  deflection, 

(3-72)  0(t)  =  0^  +  0,sin(kt)  +  0^cos(kt) 


(3-73)  fi’(t)  =  Bjj  +  li5Sin(kx)  +]i^cos(kT) 


where. 


(ob 

k  =  reduced  frequency  =  tt 


t  =  non-dimensional  time  ^ 


The  effective  angle  of  attack,  a,  which  combines  both  the 
instantaneous  angle  of  attack  and  the  angle  of  attack  due  to  the 
velocity  of  the  1 /4-chord  deflection,  is  given  by, 

(3-74)  a(‘c)  =  <*0  ■*'  ct5sin(kT)  +  aj.cos(kT) 


where  equation  (3-65)  gives. 


(3-75)  a^  =  0^ 
(3-76)  = 


(3-77)  =  0J,  -  kEj 

Manipulations  of  the  formulas  are  further  simplified  if  the 
angle  of  attack  is  put  in  the  form  where  it  is  purely  sinusoidal, 

(3-78)  a(t)  =  Oq  +  aySin(kT-i-^)  =  Oq  4- a^sinq) 


where, 

(3-79) 


(3-80) 


^  =  tan-i-^ 
“s 


(3-81)  9  =  kx  +  ^ 

Next,  assume  harmonic  motion  for  aCz  as  well, 

(3-82)  AC2(t)  =  AC^  +  AC^yjSinp  +  +  H.H.T 

Note  that  equation  (3-82)  contains  no  costp  and  sin2(p  terms,  i.e. 
no  out-of -phase  terms.  This  is  because  AC^  is  a  direct  function  of 
angle  of  attack  a  only  —  that  is,  AC2=AC2(a)  and  —  without 

any  lag  terms,  so  the  two  are  always  in  phase.  If,  however,  a  time 
dependence  were  added  as  well,  for  instance  from  a  fixed-time  stall 


delay  Ax,  then  there  might  be  additional  out-of-phase  terms. 
Substituting  equation  (3-78)  into  equation  (3-69)  and  carrying  out 
the  Fourier  expansion  yields, 

1 

(3-83) 

"  i  m=0 


where  the  bj^^’s  are  the  j-dependent  terms,  and  the  Ij^^'s  are  the 
j-independent  terms,  i.e.  dependent  or  independent  of  the  power  of 
the  describing  polynomial.  These  terms  are  given  by, 


i9fn  >  I 


(3-85)  L  =  Jsin“<p  d<|>  = 


-sin”‘^9Cosq>|*^'’*‘^  m-1. 


^  m  M.m-2 


where  the  limits  of  integration  are  given  by  transforming  the  region 
limits  into  the  phase  domain. 


(3-86) 


a.-a. 


+x/2  if  aQ-t-Oy<aj  i.e.  a^-a^>a^ 


-k/2  if  aQ-ay>aj  i.e.  aj-ap<-ay 


and  where  the  binomial  coefficients  are  defined  as. 


(m)=s:r(h)T 
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The  first  two  values  required  for  the  recursive  formula  in 
equation  (3-85)  are  given  by. 

(3-88)  1-0=  Jd(p  =  (Pi^l  -9i 


(3-89)  Ijj  =  /sin<pd(p  =  costpj  -  costpj^j 

<Pi 

Similarly,  using  the  same  calculated  b-  and  Ijj  values,  the  first 
and  second  harmonic  terms  are  given  by. 


(3-90) 


i  m=0 


(3-91) 

i  in=0 


m 


('i. 


m 


-  21: 


) 


It  is  unnecessary  to  also  carry  out  the  full  Fourier  analysis  for 
the  time  derivative  of  because  of  the  mathematical  identity  that 
the  Fourier  expansion  of  the  derivative  of  a  function  is  equal  to  the 
derivative  of  the  Fourier  expansion.  Hence,  equation  (3-82)  gives, 

dAC, 

(3-92)  =!  -kACj^^cos(kT)  +  2kAC^^2S>n(2kx)  +  H.H.T. 


where  and  AC^y2  again  given  by  equations  (3-90)  and 

(3-91).  Simple  examples  for  a  force  curve  with  only  one  and  two 
break  points  are  given  in  Appendix  E. 


3.2.3  Harmonic  Balance  Applied  to  ONERA  Model 

The  harmonic  balance  method  as  applied  to  solving  equation 
(3-64)  begins  by  first  assuming  an  infinite  harmonic  expansion  for 
as  is  given  by  equation  (3-82).  It  is  also  assumed  that  Cz2  can  be 
expressed  as  an  infinite  harmonic  series  in  the  phase-shifted  domain, 
i.e.  in  terms  of  instead  of  kt  —  this  is  more  convenient  since 

the  expression  for  is  more  simple  in  the  phase-shifted  domain, 

(3-93)  =  +  Z  +  Z  C<J)„cos(n<p) 

m  n 

As  noted  in  previous  studies  [Ref.  53],  it  is  most  convenient  to 
describe  the  nonlinear  aerodynamic  coefficients,  a,  r,  &  e,  in  terms  of 
polynomial  expressions  in  the  lift  deficit  coefHcient,  For  a  sym¬ 

metric  wing,  the  expression  should  be  symmetric  about  AC^  =  0. 
therefore  a  polynomial  in  even  powers  only,  and  it  has  generally 
been  found  that  a  simple  parabolic  is  sufficient  to  describe  these 
coefficients. 

(3-94)  a  =  aQ  +  ajACL 

(3-95)  r  =  l^r^  +  riAcJ.p 

(3-96)  ese^  +  ejACL 

Substituting  the  harmonic  series  for  AC^^  from  equation  (3-82) 
into  the  above  equations  yields  expressions  for  a,  r,  &  e  in  terms  of 
the  products  of  harmonic  series,  instead  of  constant  coefficients 


Substituting  these  harmonic  expressions  for  a,  r,  &  e,  along  with  the 
harmonic  series  for  and  €^2’  equations  (3-82)  and  (3-93), 

into  the  unsteady,  stalled  ONERA  equation  (3-64),  and  then  applying 
the  trigonometric  product  identities, 

sin(x)  sin(y)  =  ^cos(x-y)  -  cos(x+y)) 

cos(x)  cos(y)  =  ^cos(x-y)  +  cos(x+y)) 

sin(x)  cos(y)  =  ^sin(x-y)  +  sin(x+y)) 

yields  an  infinite  harmonic  matrix  equation  for  finding  the  harmonic 
components,  ’  nonlinear  contribution  to  the 

aerodynamic  force,  0^2’  given  by  equation  (3-93).  After  allowing 
Mathematica'^  to  carry  out  the  tedious  algebra  of  multiplication  of 
harmonic  expansions  and  reduction  of  trigonometric  products,  the 
resulting  equation  is, 

(3-97)  [-  k^d']  +  = 

where  -k^[r](C22^)  comes  from  C^2’,  comes  from 

(aC^2'‘'f^z2)’  [^^^’®^](ACz}  from  (rAC^+rd(AC^)/ax).  The  elements  of 

the  nonlinear  aerodynamic  matrix  [A]  truncated  to  two  harmonics 
(i.e.  5x5)  are, 

(3-98)  =  r[(1  +  82(^1  +  4)  +  +K  -  3-»oA?42 

2  322 

+  2AqA2  +  2^  1^2 


(3-99) 


/?12  =  -  AjA2)  +  32(2^0^1  ■ 

+  3^0  A]  A2  -  |ajA2)] 


(3-100)  =  -kA3i(A)Ai  -  JA,A2) 

(3-101)  =  2kAPj(^Ai  +/^A2) 

(3-102)  =  R[02<'i^l  2^)^)  + 


9  2  2 
-  gAiA2  + 


2A0A2)] 


(3-103)  /?2^;’*^  =  r[32(4A)Ai  -  2A,A2)  +  3^(3Aoa5  -  4AoAiA2 

-  2A1A2  +  64oA|A2  -  2^iA2)j 


(3-104) 


(3-105) 

(3-106) 


-  r[i  +  ^2(2^1  ■  ^2)  ■*■  8^1 

a2^  <,*2*2  21^2^2  3^  ^3 

-  oAqAj  A2  +  2AqA2  +  g  AjA2  -  2^^2  ■*" 

=  -kA[l+P,(|Af  -Ao^+^A^)] 

=  2kAp,(-i^A,  +A,42) 


(3-107) 

^25  =r[p2(-2^A,  '^2A,^)  +  p2(.24oZli  -^4AoAiA2 

7  3  9  2  3  1  T 

Az  ■  2^0^1^2  2^1^2)J 

(3-108) 

1 

1 

(3-109) 

■^32  "  =  kA[l  +  +,^42+ 14] 

1 

1 

(3-110) 

=  r[i  -  P2(|a]  3.  2^042  +  4  +  ^  ^  ^2^2 

■^8^1^2+2^2+14)] 

(3-I1I) 

/?34  =  r[202A)Ai  +  02(A)4  -  +|aoAi4)] 

(3-112) 

=  -2kApj^di 

(3-113) 

<“*  =  0 

(3-114) 

(3-115) 

=  r[2Pj4,a,  *  4  |ao4, a])] 

(3-116) 

°  .  IaoaJ As 

+44+144+14)] 
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where  the  intermediate  variables  are  given  by, 

(3-123)  A  =  (ao  +  a,A^)  ;  ?,  =  a,/A 

(3-124)  R=[ro  +  r,4j]^  ;  ^2  =  r,WR 

(3-125)  E  =  (eo  +  e,4^)  ;P3  =  e,/E 

and  the  shorthand  notation  Aq=AC|_q,  and 

been  used,  as  derived  in  Section  3.2.2,  and  given  by  equation  (3-82). 

The  magnitudes  of  the  nonlinear  coupling  terms,  ^2*  ^  ^3* 
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aj/aQ,  rj/ro*  ^  t)®cause  the  flutter  analyses  are  usually  only  in 

light  stall,  i.e.  when  Aq  is  relatively  small.  Therefore,  from 
Appendix  D,  the  nonlinear  coupling  terms  are  of  the  order  of  (3j  =  2, 
02*1O,  and  p3»'*. 

Note  that  A,  R,  &  E  are  the  values  of  a,  r,  &  e  based  only  on  the 
mean  value  of  —  i.e.  they  are  the  simpliiied  values  used  in 

Refs.  94  and  95,  and  that  same  analysis  can  be  reproduced  by  sim¬ 
ply  setting  pj,  ^2’  03  Moreover,  for  small  amplitudes  of 

oscillation,  i.e.  on  the  flutter  boundary,  Aj  &  A2  are  negligible  relative 
to  Aq,  and  again  the  analysis  can  be  much  simplified  by  setting  Pp  P2, 
&  P3  to  zero. 

The  aerodynamic  matrix  [/?  governing  the  right  hand  side 
of  equation  (3-97)  is  identical  to  the  aerodynamic  matrix  just 

derived,  only  with  all  a  values  substituted  by  e  values.  This  would 
not  be  the  case  unless  the  nonlinear  coefficients  a  &  e  both  had  the 
same  parabolic  form,  as  in  equations  (3-94)  and  (3-96).  Hence, 

(3-126)  [,<?<'•'•]  a|-»e,) 

=  {  [4  <'•*>];  A-.E, 

The  [F]  matrix  is  like  an  identity  matrix,  but  with  squares  of 
the  ascending  integers  taking  up  every  two  diagonal  elements  (one 
each  for  the  sine  and  cosine  components).  This  matrix  results  from 
taking  the  second  derivative  of  the  harmonics  with  respect  to  time. 
Truncated  to  the  second  harmonic,  it  looks  like. 


(3-127)  (1’]  = 


0  0  0  0  0 

0  10  0  0 

0  0  10  0 

0  0  0  4  0 

LO  0  0  0  4  - 

The  (C^2^}  and  {AC^}  column  vectors  of  equation  (3-97)  are 
made  up  of  the  harmonic  elements  of  0^2  and  from  equations 

(3-82)  and  (3-93) 

(3-128)  (q'fl  =LC,20  <^2s2 

(3-129)  {AC^)=LAC„AC„,  0  0  AC„j.../ 

Matrix  equations  (3-97)  is  solved  to  find  the  phase-shifted 
harmonic  components  of  0^2  >  and  these  are  then  converted  into  the 
real-time  domain, 

(3-130)  =C,7,>,  cos4  -  sin^ 

(3-131)  C^,  =C^\  cos4  sin^ 

(3-132)  = 

(3-133)  C^  =  C^>2  <=»»24  +  sin25 

3.3  Algebraic  Reduction  bv  Modal  Analysis 
3.3.1  Ravleiyh-Ritz  Analysis 
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The  direct  Rayleigh-Ritz  energy  method  is  a  relatively  simple, 
straightforward  approximation  for  the  plate  deflections,  as  required 
for  the  static  deflection,  free  vibration,  and  flutter  analyses  in  this 


study.  The  Rayleigh-Ritz  method  also  has  the  advantage  of  showing 
the  effect  of  the  individual  variables  on  the  solution  more  clearly 
than  other  more  accurate  methods,  such  as  finite  element  analysis. 
The  "wing"  is  idealized  by  a  rectangular,  cantilevered, 
graphite/epoxy  flat  plate  of  uniform  thickness,  with  styrofoam  fair¬ 
ings  covering  the  entire  chord  but  only  part  of  the  entire  span. 

The  Rayleigh-Ritz  analysis  begins  by  assuming  a  deflection 
shape  for  the  structure.  If  only  out-of-plane  deflections,  w,  and  fore- 
&-aft  deflections,  v,  are  allowed,  the  deflection  equations,  written  in 
generalized  coordinates,  are, 

(3-134)  w  =  Y7(x,y)qj(t) 

i=l 

(3-135)  V  =  2;  Y[(x,z)qj(t) 
i=l 

where  Y]^(x,y)  and  Y^(x,y)  together  are  the  non-dimensional  deflec¬ 
tion,  or  mode  shape,  of  the  i-th  mode;  qj(t)  is  the  generalized  dis¬ 
placement,  or  modal  amplitude,  of  the  i-th  mode;  and  n  is  the  num¬ 
ber  of  mode  shapes. 

For  simplicity,  it  is  further  assumed  that  the  mode  shapes  are 
separable  in  the  chordwise,  spanwise,  and  through-the-thickness 
directions  —  x,  y,  and  z  —  namely  that  the  mode  shape  can  be  written 
in  the  form. 
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(3-136)  Yr(*.y) = ♦r(x)vr(y) 


(3-137)  Yi" (x,z)  =  ^ (z) 

The  nonlinear  equations  of  motion  are  thus  transformed  from 
equations  that  are  differential  in  both  space  and  time,  to  equations 
that  are  algebraic  in  space  and  differential  in  time.  These  equation  — 
relating  the  modal  amplitudes  to  the  modal  forces  [Ref.  70]  —  are, 

(3-138)  i  M  j.qj  +  i  Kj^q.  =  Qi  i=l . n 

j=l  j=l 

or,  in  matrix  form, 

(3-139)  [M]{q}+[Kl(q}  =  {Q) 

The  mass  and  stiffness  matrices  are  comprised  of  contributions 
from  the  graphite/epoxy  flat  plate,  the  styrofoam  fairings,  and 
effects  of  geometric  nonlinearities,  while  the  aerodynamic  forces 
contribute  to  the  modal  forces, 

(3-140)  My  =  M'f  +  +  M*'° 

(3-141)  Kij  = 

The  derivations  of  these  mass  and  stiffness  contributions  and 
of  the  modal  forces  are  described  in  Section  3.3.3. 

3.3.2  Selection  of  Rayleigh-Ritz  Modes 
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To  sufficiently  describe  the  deflection  of  the  wing  in  the  static 
bending,  free  vibration  and  flutter  tests,  beam  out-of-plane  bending 


modes,  beam  torsion  modes,  chordwise  bending  modes,  and  beam 
fore-&-aft  bending  modes  were  chosen.  Previous  studies  used  sim¬ 
plified,  sinusoidal  torsional  mode  shapes  [Ref.  92]  that  did  not  meet 
the  cantilevered  root  conditions,  but  with  a  torsional  stiffness  cor¬ 
rection  which  accounted  for  the  effect  of  root  warping  stiffness 
[Ref.  70].  Vibrations  tests,  where  the  modal  amplitudes  were  very 
small  and  the  modal  forces  identically  zero,  showed  that  this  tor¬ 
sional  stiffness  correction  sufficed  to  accurately  predict  the  natural 
frequencies  and  modes  of  vibration  of  the  wings. 

However,  static  bending  tests  and  low  speed,  steady  deflection, 
wind  tunnel  tests  conducted  in  this  study,  where  the  modal  ampli¬ 
tudes  and  modal  forces  were  no  longer  insignificant,  showed  that  the 
use  of  mode  shapes  which  did  not  meet  the  cantilevered  root  condi¬ 
tion  adversely  affected  the  Raylcigh-Ritz  prediction  of  modal  deflec¬ 
tions,  Therefore,  the  more  complex  torsional  modes,  with  similar 
spanwise  form  as  the  beam  bending  modes,  were  used  instead  of  the 
simplified  sinusoidal  mode  shapes.  The  selected  mode  shapes  are 
listed  in  Table  1. 

The  parameters  of  the  beam  torsion  modes  are  derived  from 
the  definition  of  0  and  the  relationship  between  fj  and  gj. 


(3-142)  ^  = 


(3-143)  = 
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Out-of-Dlane  bending:  mode  #  =  i  =  j  =  1  to  iij. 


.  r 

-  sin  £j|- 


^(x)  =  cosh|^£j|j  -  cos|^£j|j-  Oj  sinh|^£j 

^7(y)  =  1 

irr(x,z)  =  0 

sinh  £j  -  sin  £• 

-  Pj’'  .  ®j  “  CQsf,  +  CQ5 

Pj=  0.596864162695,  1.494175614274.  2.500246946168, 
3.499989319849.  4.500000461516,  5.5,  6.5,  ... 


Torsion:  mode  #  =  i  =  nj^+j  ;  j  =  1  to  n^ 

Jj2Sinfgj|]-  -j3 


=  Bjjcos  gjij-*-  Bj3Cosh^fj|j+  Bj^sinh^fjl 


vr(y)  =  c 
Yr(x,2)  s  0 

Choidwisc.  bcndinc  mode  #  =  i  =  n^+n^+j  ;  j  =  1  to  n^ 


<l»l(x) 


:  v,(y)=^-j 
:  V2(y)=^- 1 


;  y,  (x,z)  =  0 


;  y,  (x,z)  =  0 


Fore-A-aft:  mode  #  =  i  =  n|j+n,+nj.+j  ;  j  =  1  to  n^ 

=  0 

^(x)  =  cosh^Ejlj  -  cos^Ejl’j  -  ajj^sinh  [t|].  siii[e|| 
=  I 


Ej  and  Oj  same  as  above 
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Table  1.  Assumed  mode  shapes 


and  by  solving  the  coupled  equations  which  ensure  that  the  mode 
shape  meets  the  plate  boundary  conditions  at  the  root  and  tip.  For 
the  assumed  torsional  mode  shapes,  the  equations  that  describe  the 
boundary  condition  that  must  be  met  can  be  written  in  matrix  form 
as  [Ref.  69], 

1  0  1  ®  Itb  1  P 

0  g  0  f  8^2  0 

-g^cosg  -g^sing  f^coshf  f^sinhf  Bj3  0 

gf^sing  gf^cosg  g^fsinhf  g^fcoshf-J^ 


The  first  two  lines  of  the  matrix  equation  (3-144)  ensure  that 
the  deflection  and  slope  at  the  plate  root  are  zero.  The  last  two  lines 
of  the  matrix  equation  ensure  that  the  internal  forces  at  the  plate  tip 
are  also  zero. 

Since  f  and  g  are  related  through  equation  (3-143),  the  non¬ 
trivial  solution  to  the  eigenvalue  problem  is  found  by  setting  the 
determinant  of  the  matrix  in  equation  (3-144)  to  zero.  The  values 
for  f  and  g  can  be  found  by  a  simple  Newton  solver  scheme.  Once  the 
f  and  g  values  are  found,  the  coefficients  are  determined  through 
the  following  matrix  equation. 


(3-145) 


1  0  1  ®  Ip  1  p 

0  g  0  f  Bj2  0 

-g^cosg  -g^sing  f^coshf  f^sinhf  ®j3  0 

-  cosg  sing  coshf  sinhf  J*"  ^1 


The  fourth  line  in  equation  (3-145),  which  normalizes  the 
modal  tip  deflection  to  one,  replaces  the  fourth  line  of  equation 
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(3-144),  which  becomes  redundant  when  f  and  g  are  solved  so  as  to 
make  the  matrix  singular. 

It  is  clear  from  equation  (3-14S)  that  and  are  equal  in 
magnitude  but  opposite  in  sign.  It  is  also  generally  found  that  f  is 
order  of  magnitude  10,  so  that  the  cosh(0  and  sinh(f)  terms  domi¬ 
nate  the  third  line  of  the  matrix  equation,  making  Bjj  and  oppo¬ 
site  in  sign  and  almost  equal  in  magnitude.  It  is  important  to  note 
for  purposes  of  calculating  the  tip  deflection  that  B-^  and  B-^  are  not 
exactly  equal  in  magnitude,  since  this  difference  is  magnified  expo¬ 
nentially  by  the  cosh  and  sinh  terms  near  x/£=l.  Values  of  p,  f,  g, 
and  B-j  for  the  layups  used  in  this  study  are  listed  in  Appendix  B. 


For  the  flat  plate,  the  symmetric  mass  coefficients,  and  the 
symmetric  stiffness  coefficients,  are  defined  as, 

(3-146)  =  JJJ  p  dxdydz  for  i,j  Sjijj+nj+n^, 


(3-147)  m/?  =  J/I  P  yhj  dxdydz  for  nj^+Oj+n^.  <  i,j 


50 


(3-149)  Kjj  =  12  J/{^ll'4,xxVj,xx  ^22^i.zz'(j,zz 

^12f^.xx^j.zz  ■*■  Yi.zzYj.xxl  ■*■  ^■^i6^^i,xxYj.xz  ■*■  Yi.xzYj.xxJ 
+  '^^2f^\iz\xz  +  \xz)5!zz]  Idxdz  for  nj,-Hn^+n^  <  i,j 


where  p  is  the  density  and  the  subscripts  following  the  commas 
denote  partial  differentiation  with  respect  to  the  spatial  coordinates, 
X,  y,  and  z.  A  12-point  Gaussian  quadrature  scheme  was  used  to 
evaluate  the  above  integrals. 

The  styrofoam  contributions  to  the  mass  matrix  can  be  calcu¬ 
lated  in  the  same  form  as  equations  (3-146)  and  (3-147)  using  the 
known  thickness  of  the  styrofoam  and  the  chosen  mode  shapes  from 
Table  1. 


(3-150)  Mi7  =  p,c(0.685t„„-y  JPiOjdx 


Sty 


for  ij^n^j  or  njj-i-nj-t-n^<i,j 


(3-151)  Mi7  =  p,^0.506l„„-t,p)  J♦i♦.dx 


Sty 


for  nj,<i,j^nj,-*-nj 


=  -0.0545p,ct„„  Jdidjdx 


Sty 


for  isnjj;  njj<j^njj+nj 


(3-152) 


The  calculations  of  the  styrofoam  contributions  to  the  mass 
matrix  from  the  chordwise  bending  modes  are  more  cumbersome 
because  of  the  complicated  chordwise  variation  of  the  mode  shape. 
Therefore,  for  those  components  of  the  mass  matrix  involving  the 
chordwise  bending  modes,  the  styrofoam  thickness  is  assumed  to  be 
uniformly  half  the  maximum  thickness,  as  might  be  suggested 

by  equation  (3-151). 

In  the  same  manner,  the  contributions  of  the  styrofoam  to  the 
stiffness  matrix  can  be  calculated,  giving. 


A779t 


mAJL 


(3-153)  iqf  =  200,7^ 


'in 


t 


sty 


for  i,j^njj  or  n,j+nj+n|,<i,j 


(3-154)  Kif  =  ..01585cQf/t^„3, 


sty 


for  i^nj,;  nj,<j$nj,+nj 


(3-155)  Ki7  =  ^ - j - ^  JWj.x.'l*  * 


.7791 


+  8cCk7 


T  -  W  k ... 


c  c 


^dx 


sty 


for  nj,<i,jinj,+n, 


sty  stv 

where  and  are  the  styrofoam  engineering  constants,  defined 
in  the  same  manner  as  for  the  graphite/epoxy  in  equations  (3-1)  and 
(3-4),  as  listed  in  Appendix  A. 

Again,  the  calculations  involving  the  chordwise  bending  mode 
are  quite  cumbersome,  so  for  these  purposes  the  styrofoam  is 
assumed  to  be  uniformly  80%  its  maximum  thickness,  as  might  be 
suggested  by  equations  (3-153)  and  (3-155). 

The  contributions  from  the  geometric  nonlinearities  can  be 
added  by  applying  the  same  Rayleigh-Ritz  method  to  the  nonlinear 
equations  of  motion  derived  in  Section  3.1.2.  There  are  no  nonlinear 
contributions  to  the  mass  matrix,  Mfj  =0.  The  nonlinear  contribu¬ 
tions  to  the  stiffness  matrix,  similar  to  those  derived  by  Boyd 
[Ref.  78],  are. 


(3-156) 


Rmnijtlmtln 


msl nsl 


for  nb<i,j^nb+nt 

for  nb<i^nb-t’nt;  nb+nt+nc<j 

otherwise 


where  the  coefficients  of  geometric  nonlinearity  —  resulting 

from  modal  analysis  applied  to  (EIq-EI^)( w”^6)  in  equation  (3-60), 
and  resulting  ft'om  modal  analysis  applied  to  (EI^-EI^)(w’’v”)  in 

equation  (3-60)  or  (EI^-EI^)(w”0)”  in  equation  (3-59)  —  are, 

(3-157)  Rmnij  = 

for  m,n^n|^;  njj<i,j$njj+nj 


(3-158)  Hmij  =  (EI;-EI^)JV.AW* 

for  mSiijj;  njj<i^nj,+nj;  njj+nj+n^<j 

The  modal  forces  are  then  finally  obtained  by  integrating  the 
aerodynamic  force  coefficients,  as  determined  in  Section  3.2,  with 
the  mode  shapes  over  the  span.  This  integral  also  incorporates  the 
spanwise  correction  to  strip  theory  described  by  Landsberger 
[Ref.  91]  and  described  in  Appendix  C. 

i 

(3-159)  Qj  =  I  {  c[Cl(x)cos0r  +  Ci5(x)sinej^] V*' (+f ) 

0 

+  c2Cj^(x)v^y(+|) }  ^ (x)dx  for  i,j^n^+nj+n^ 

£ 

(3-160)  Qj  =  IpU^  J  c(-CL(x)sinej^  +  Cjj(x)cos0R]Vi^ (0)^^ (x)dx 

0 

for  njj+nj+nj.<i,j 

3.4  Pre -Flutter  Analyses 
3.4.1  Static  Deflection  Problem 

The  static  deflection  problem  is  formulated  as  an  analytical 
model  of  the  experimental  deflection  tests  described  in  Chapter  4. 
For  a  pure  force  test,  the  cantilevered  plate  or  wing  is  subjected  to  a 
concentrated  load  at  the  specimen  tip  (x=£),  at  the  elastic  axis  (y=0). 
For  a  pure  moment  test,  the  cantilevered  plate  or  wing  is  subjected 
to  equal  and  opposite  concentrated  loads  at  the  specimen  tip  ix=i),  at 
the  leading  and  trailing  edges  (y=±c/2).  The  accelerations  are  zero 
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for  static  deflection,  and  the  real  forces  are  point  loads,  so  equation 
(3-138)  for  a  pure  force  reduces  to, 

(3-161)  i  Kjjqj  =  Qi  =  F  <Di(£)Vi(0)  i=l . n 

j=l 

where  F  is  the  concentrated  load  applied  at  the  wing  tip.  Similarly  for 
a  pure  moment,  where  M  is  the  moment  applied  to  the  wing  tip, 
equation  (3-138)  reduces  to, 

(3-162)  £Kijq.  =  Qi  =  -6i(^)t>|/i(f)-Vi(f)l  i=l . n 

3.4.2  Free  Vibration  Problem 

The  free  vibration  problem  is  formulated  as  an  analytical 
model  of  the  experimental  vibration  tests  described  in  Chapter  4. 
The  problem  is  formulated  by  setting  the  modal  forces,  Q^,  equal  to 
zero  in  equations  (3-138)  and  (3-139).  The  equations  of  motion  are 
reduced  from  differential  form  to  algebraic  form  by  assuming  har¬ 
monic  (sinusoidal)  motion.  The  modal  amplitudes  can  be  expressed 
as, 

(3-163)  q  =  V***  I  qss-cD^qe'®* 

where  (d  is  the  frequency.  These  assumptions  are  substituted  into 
the  differential  equations  of  motion,  (3-138),  to  obtain  the  sinusoidal 
equations  of  motion, 

(3-164)  X  + V’j  '  °  . " 
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or,  in  matrix  form, 


(3-165)  [-O)2[M]-h[K]]{q}  =  {0} 


Equations  (3-164)  and  (3-165)  describe  an  eigenvalue  problem 
which  can  be  solved  by  using  a  numeric  eigenvalue  solver,  for 
example  EISPACK™. 

The  linear  free  vibration  problem  about  the  nonlinear  static 
deflection  is  carried  out  in  the  same  manner  as  the  linear  free  vibra¬ 
tion  problem,  with  the  exception  that  the  stiffness  matrix  is  changed 
according  to  the  geometrically  nonlinear  effects  of  a  nonzero  tip 
deflection.  For  this  analysis,  the  tip  deflection  was  effectuated  by 
increasing  only  the  static  deflection  in  bending  of  the  first  m 
shape,  qjg,  in  other  words. 


(3-166) 


KjjP  -*■  +  Hjj.qjo  for 


otherwise 


3.4.3  Two-Dimensional  Aerodynamic  Problem 

Three  approaches  to  the  ONERA  method  of  calculating  the 
2-dimensional  force  hysteresis  were  compared:  a  4th-order  Runge- 
Kutta  time  marching  scheme,  the  2-harmonic  scheme  described  in 
Section  3.2.3  (denoted  "non-constant"  because  a,  r,  &  e  are  not  con¬ 
stant  through  the  hysteresis  cycle),  and  a  2-harmonic  scheme  with 
constant  coefficients  a,  r,  &  e  (i.e.  3j.  Pj*  ^  ^3  zero).  The  pur- 


poses  of  this  comparison  were,  first,  to  determine  if  the  harmonic 
schemes  accurately  matched  the  "exact"  Runge-Kutta  time  marching 
scheme  and,  second,  to  determine  if  i  .ing  non-constant  coefficients 
provided  significant  improvement  over  constant  coefficients  in  the 
harmonic  schemes. 

The  2-harmonic,  non-constant  approach  is  as  described  in 
Section  3.2.3.  The  2-harmonic  constant  coefficient  scheme  is  merely 
a  simpler  subset  of  the  non-constant  approach.  Several  approaches 
can  be  taken  to  “smearing”  the  nonlinear  coefficients  through  the 
hysteresis  cycle, 

(3-167)  a  =  aiQ  -t-  aj(ACL(<a>))^  =  aQ  +  ajCACJoi^j))^ 

(3-168)  a  =  aQ  +  aj(<ACL(a)>)^  =  a^  +  ajA^ 

(3-169)  a  =  <aQ  +  a|(ACL(a))^>  =  Bq  +  aj(Aj  +  |ai  +  ...) 

Equation  (3-167)  bases  the  constant  coefficient  on  the  mean 
angle  of  attack.  This  approximation  seems  poor  because  there  are  no 
effects  when  the  mean  angle  is  below  the  stall  angle  but  the  ampli¬ 
tude  of  oscillation  is  large  enough  to  cross  into  the  stall  region. 
Equation  (3-168),  based  on  the  mean  force  deficit,  and  equation 
(3-169),  based  on  the  mean  coefficient  through  the  cycle,  account  for 
this  effect,  and  are  likely  more  accurate  approximations.  Of  the  two, 
that  described  by  equation  (3-169)  is  likely  a  better  approximation, 
but  that  described  by  equation  (3-168)  was  used  because  it  was 
easier  to  implement  in  the  current  formulation:  it  could  b**  achieved 
by  simply  setting  =  in  equations  (3-123)  to  (3-125).  It 


should  be  noted  that  no  matter  which  approach  is  taken,  there  is  no 
dependence  on  the  reduced  frequency  k  because  the  values  of  the 
harmonic  components  of  the  lift  deficit,  Ap&A2,  are  independent 
of  the  reduced  frequency. 

The  4th-order  Runge-Kutta  scheme  is  typical  for  that  used  for 
second  order  differential  equations.  The  stalled  ONERA  equation 
(3-64)  is  set  up  in  terms  of  the  state  vector. 


(3-170) 


with,  y  =  *  ^  =  * 

LqiJ  L(ac,) 


and  the  time  marching  substeps  are  given  by, 
rr*  Mht) 


(3-171) 


nyn* 

^  A(kt)  ^  1  A(kT) 

h  2  =  ~k~  *  n  2^  P  ^  2 


r*  A(kx)  -5^-4  1-4  -»  1  Aticx) 

k  3  =  f  (y  n  +  2*^  2’  *  2 


1  A(kx)^ 


7»  A(kx)  ^  -4  -*  -» 

k  4  =  f  [y  „  +  k  3,  X  (x„  +  —j^)] 


A(kx)^ 


.yn4.1*  y  n  g(k  j  +  2k2  +  2k3  +  k4) 


For  the  Runge-Kutta  scheme,  each  cycle  of  the  hysteresis  was 
divided  into  360  time  steps,  i.e.  1°  change  in  kx  for  each  time  step 
In  general  it  was  found  that  3  cycles  were  required  for  convergence 


to  a  steady  hysteresis  loop,  although  more  were  required  as  the 
reduced  frequency  pushed  past  0.2.  Therefore,  approximately  1000 
time  steps  were  required  to  reach  convergence.  Each  time  step 
required  4  substeps,  and  each  substep  required  on  the  order  of  10 
multiplication  operations  (approx.  5  to  calculate  the  updated  a,  r,  e,  & 
it  values,  5  to  update  the  state  vector  derivative).  So,  in  total,  the 
Runge-Kutta  scheme  takes  on  the  order  of  40,000  operations. 
However,  executing  a  time  step  per  1°  change  in  kt  is  likely  too  con¬ 
servative  an  time  marching  scheme,  despite  the  high  nonlinearity  of 
the  formulation.  On  the  order  of  4,000  operations  would  be  more 
realistic. 

For  the  2-harmonic  non-constant  scheme,  with  a  single  break 
point  lift  model  as  described  in  Appendix  E,  setting  up  the  binomial 
and  integral  coefficients  bjj  and  Ijj  requires  9  operations  while  eval¬ 
uating  the  harmonic  coefficients  of  the  force  deficit,  etc., 

requires  another  13  operations,  bringing  the  total  number  of  opera¬ 
tions  to  approximately  20.  For  an  n-harmonic  scheme,  the  number  of 
operations  in  evaluating  the  harmonic  coefficients  of  the  force  deficit, 
Aq,  A|,  etc.,  goes  like  8(n-f-l).  In  evaluating  the  aerodynamic  matrix, 
the  worst  case  is  like  the  component,  which  requires  30  mul¬ 

tiplication  operations.  There  are  25  such  components,  thus  requiring 
750  operations  to  evaluate  the  entire  matrix.  The  real  number  of 
operations  is  likely  closer  to  500  because  of  smaller  expressions  for 
other  elements  such  as  13'  For  an  n-harmonic  scheme,  the  num¬ 
ber  of  operations  in  evaluating  the  aerodynamic  matrix  goes  like 
^n  +  1  )'^(2n  +  l)2.  The  factor  of  (2n+l)^  comes  from  the  number  of 
components  in  the  matrix,  the  factor  of  (n+l)"^  comes  from  multiply - 
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4  I 

ing  out  the  Aq.Aj,  etc.  terms  in  ACl  in  r,  while  the  factor  of  ^  is 

4 

because  not  all  the  elements  of  ACl  contribute  to  all  the  components 
of  the  aerodynamic  matrix.  Finally,  Gauss  elimination  to  solve  the 
matrix  equation  requires  approximately  ^2n+l)^  operations,  i.e. 
approximately  60  operations  for  a  2-harmonic  analysis. 

Therefore,  in  total,  the  2-harmonic  analysis  with  non-constant 
coefficients  requires  somewhere  on  the  order  of  600  operations.  This 
is  about  an  order  of  magnitude  fewer  operations  than  the  Runge- 
Kutta  scheme.  However,  for  a  3-harmonic  analysis,  the  (n+l)'^(2n+l)^ 
term  grows  very  quickly  and  on  the  order  of  approximately  3,000 
operations  are  required,  making  the  tradeoff  with  the  Runge-Kutta 
scheme  much  less  beneficial. 


3.5  Flutter  Analyses 
3.5.1  U-g  Method 

As  a  starting  point  from  which  to  investigate  the  full,  nonlinear 
flutter  problem,  it  is  useful  to  look  at  the  linear,  small-amplitude, 
zero  root-angle-of-attack  flutter  and  divergence  problem,  which  can 
typically  be  solved  using  what  is  called  the  U-g  method. 

First,  because  the  problem  is  linear,  the  steady  problem  is 
completely  uncoupled  ft'om  the  unsteady  problem,  and  the  two  can 
be  considered  separately.  So,  for  the  unsteady  problem,  sinusoidal 
motion  is  Hrst  assumed, 

(3-172)  qi=qie‘"‘ 

After  some  algebraic  manipulation,  it  is  derived  that  the  aero¬ 
dynamic  modal  forces  are  given  by, 

0 


(3-173)  Qj  =  ci)^SLpb^ 


b  +  C 


n, 


n. 


ye 


10)t 


for  i<ni 


(3-174)  Qi  =  (o\pb^  - 2^— ^2-qjk“‘ 


n, 


n. 


for  njj<i^njj+nj 


where  the  complex  lift  and  moment  terms  are. 


(3-175)  [L,+iLjl  =  I-Y^(k) 


(3-176)  =  * 


a 


L"L 


jLL 

2St 


C(k) 


(3-177)  [M,-^iMj]=i  +  ^-^^(k) 


13-1781  IM -t-lM  1  —  “  -  M  .  ?oL 

(3-17S)  -  25^  +1^2  2s^ 


+  L 

^  Sl  Sl  2 


?L  *iJ_L 


L^L 


2s 


lJ 


C(k) 


and  where  the  approximation  to  the  Theodorsen  function  and  the 
mode  shape  integrals  corrected  for  spanwise  effects  are  given  by. 


X,  +  a, ik 
(3-179)  C(k)=^;^^ 


6  1 


Note  at  this  point  that  if  the  linearly  derived  coefficients  are 
inserted  into  equations  (3-175)  to  (3-178)  [aQL=2jt;  5^=^;  k^L=n/2; 
0^  =  2  71;  Sj^=-7i/4;  j^  =  -3jt/16;  cJj^=-Jt/4],  then  the  typical 
2-dimensional,  linear  relations,  as  shown  in  Refs.  90  and  92,  are 
recovered. 

Insening  these  into  the  equations  of  motion  and  canceling  the 
e‘“‘,  yields  the  following  form  of  the  equations  of  motion,  written  in 
contracted  matrix  form, 

(3-181)  [[Kl-oi2[Al]{<i)  =  0 

where  the  combined  aerodynamic/mass  matrix  is, 

(3-182)  Ajj  =  Mjj  SLp£b2lij[Lj+iL2]  for  ij^n^, 

(3-183)  Ajj  =  Mjj  +  SlP— Iij[L3+iL4]  for  i^n^;  nb<j^nb+nj 

(3-184)  Ajj  =  Mjj  +  SLP~Iij(M,+iM2l  for  n,,<iSnj,+nj;  j^nj, 

(3-185)  Ajj.  =  Mjj  +  SLp-^IijIM3-t-iM4]  for  nj,<i,jinj,+nj 

Structural  damping  is  then  introduced  into  equation  (3-181)  by 
multiplying  the  [K]  matrix  by  (I -rig).  Introducing  the  complex  eigen¬ 
value  Z,  equation  (3-181)  then  becomes. 
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(3-186) 


[[A]  -  (K]Z]{q}  =0 


where. 


1  +  ig 


(3-187)  Zs - 2 


0)‘ 


The  solution  method  is  to  pick  a  value  of  reduced  frequency, 
and  solve  equation  (3-186)  for  all  the  corresponding  complex  eigen¬ 
values  Z|  (in  this  case  by  using  a  complex  eigenvalue  solver  in 
EISPACK™).  Then,  for  each  Z,  the  associated  frequency,  structural 
damping,  and  velocity  are  given  by. 


(3-188) 


1  Im{Z] 

“■>/te(zF  ■  RelZ) 


The  procedure  is  repeated  for  several  values  of  the  reduced 
frequency  k,  until  enough  values  have  been  generated  to  plot  a 
smooth  U-g  diagram.  The  divergence  points  are  those  locations 
where  the  structural  damping  and  frequency  simultaneously  go  to 
zero.  The  flutter  points  are  those  other  locations  where  the  struc¬ 
tural  damping  goes  to  zero  but  the  frequency  is  non-zero. 

A  similar  analysis,  involving  linear  aerodynamics  but  nonlinear 
structures,  can  also  be  implemented  so  as  to  incorporate  geometric 
nonlinearities.  The  procedure  is  to  first  run  the  purely  linear  U-g 
analysis.  Now,  since  the  problem  is  coupled  to  the  steady  solution 
through  the  structural  nonlinearities,  the  next  step  is  to  determine 
the  steady  deflection  at  the  flutter  velocity  and  desired  root  angle  of 
attack.  The  stiffness  matrix  is  then  updated  according  to  these 
steady  deflections  and  the  U-g  analysis  run  anew.  Again,  the  steady 
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deflections  at  the  newly  calculated  flutter  velocity  are  incorporated 
to  update  the  nonlinear  stiffness  matrix,  and  thus  the  procedure  is 
repeated  until  it  converges. 

3.5.2  Harmonic  Balance  Applied  to  Nonlinear  Flutter  Analysis 

All  the  components  of  the  flutter  problem  have  been  stated  in 
differential  form  and  now  it  remains  to  reduce  the  problem  to  an 
algebraic  form  so  that  it  is  more  easily  solved  computationally.  The 
general  form  of  the  differential  equation  describing  the  motion  of  the 
wing  is  given  by  equation  (3-138).  The  left  hand  side  of  equation 
(3-138)  contains  the  structural  information  of  the  problem  and  is 
described  by  the  definitions  of  the  stiffness  and  mass  matrices  given 
in  Section  3.3.3.  The  right  hand  side  of  equation  (3-138)  contains 
the  aerodynamic  information  of  the  problem,  in  the  form  of  the 
modal  forces,  and  is  described  also  in  Section  3.3.3. 

In  general  the  aeroelastic  problem  is  reduced  from  differential 
form  to  algebraic  form  by  assuming  harmonic  motion  in  the  same 
manner  as  for  the  free  vibration  problem  in  Section  3.4.2  or  the  U-g 
method  in  Section  3.5.1.  This  method  is  acceptable  for  the  linear 
flutter  problem  where  the  steady  part  of  the  solution  is  uncoupled 
from  the  unsteady  part  of  the  solution.  However,  for  the  nonlinear 
flutter  problem,  these  two  are  no  longer  uncoupled  and  both  must  be 
considered  at  once. 

First,  the  modal  amplitudes  are  put  into  harmonic  form. 


(3-189)  qj(t)  =  qjo  -*■  qi3sin(kx)  +  qjj.cos(kx) 


From  the  modal  amplitudes,  the  angle  of  attack  and  1 /4-chord 
deflection  at  each  spanwise  location  are  also  put  into  harmonic  form, 

(3-190)  fii(x,t)  =Hq(x)  +  Hj(x)sin(kt)  +  Hj.(x)cos(kt) 

(3-191)  0(x,t)  =  0q(x)  +  0j(x)sin(kx)  +  0j.(x)cos(kx) 

where  the  harmonic  components  of  the  1 /4-chord  deflection  are, 

(3-192)  Ito  =  X  ^<l>r(^)vr(+c/4) 
i=l 

(3-193)  Its  =  X 
i=l 

(3-194)  fTc  ”  S  \^‘<>r(’^)vr(+c/4) 
isl 

and  the  harmonic  components  of  the  angle  of  attack  are, 

(3-195)  «„  =  9r  +  i  9(0  ♦r(«)vr.( 

i=l 

(3-196)  e,  =  X  <iis  ♦r  (*)¥ry( +C/4) 

i«l 

(3-197)  0c  =  X‘lic^rW¥ry(-^c/4) 
isl 
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Substituting  equations  (3-190)  and  (3-191)  into  the  formula 
for  the  linear  aerodynamics,  equation  (3-63),  gives, 

(3-198)  C^^x.t)  =  C2^(x)  +  C2^(x)sin(kx)  +  C2^(x)cos(kx) 

where  the  harmonics  of  the  circulatory  force  coefficient  are, 

(3-199)  C,^(x)  =  a^,e^(x) 

(3-200)  C,^(x)  =  F(k)L^(x)  -  G(k)L^(x) 

(3-201)  C,^(x)  =  G(k)L5(x)  +  F(k)L^(x) 

and  where,  in  the  present  analysis,  the  F  and  G  functions  are  the 
resulting  single  lag  approximations  to  the  Theodorsen  function, 
C(k)  =5  F(k)+iG(k),  namely, 

^  rt  If  2 

(3-202)  F(k)  =  -^2 - tr- 

Xjk(l-a^) 

(3-203)  G(k)  =  J 

and  where  the  other  intermediate  variables  are, 

(3-204)  L,(x)  =  a„,[e,(x)  +  kK^(x)|  ■  Ojke^(x) 


(3-205)  Lj(x)  =  a„j[9j(x)  -  kKj(x)|  +  Ojkej(x) 


Finally,  the  apparent  mass  terms  are  added  to  give  the  usual 
harmonic  form  of  the  linear  aerodynamics  derived  from  equation 
(3-62), 

(3-206)  C,ioW  =  C,^(x) 

(3-207)  C^i5(x)  =  C^^(x)  -  s^(k8^(x)-k2F^(x)]  -  k^^k^e^Cx) 

(3-208)  C^i^(x)  =  C^^(x)  +  sJk0j(x)+k2H^(x)]  -  k^^k^e^Cx) 

spanwise  location  values  of 
Cz2o'  Cz2sl’  ^z2cl  derived  in  Section  3.2.3.  They  are  added  to 
the  results  of  the  linear  aerodynamics  to  give  the  combined 
spanwise-varying  and  time-varying  force  coefficient, 

(3-209)  C^(x,x)  =  C2o(x)  -I-  C^^(x)sin(kt)  +  C2g(x)cos(kx) 

where  the  h,Tmonic  components  of  the  force  coefficient  are, 

(3-210)  C„(x)  =  C3,„(x)  +  C,j„(x) 

(3-211)  C„(x)  =  C,„(x)  +  qj3,(x) 

(3-212)  C„(x)  =  C^,e(*)  +  C,2^,(x) 

The  harmonic  form  of  the  aerodynamic  forces  is  then  placed 
into  equation  (3-159)  to  give  the  harmonic  form  of  the  modal  forces, 

(3-213)  Q.(t)  =  Q.^  +  QijSin(kx)  +  Qjj.cos(kx) 
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where  the  harmonic  components  of  the  modal  force  are, 


I 

(3-214)  Qjq  =  jpU^  J  { c(CLo(x)cos0R+CDQ(x)sin0R]Vi(+f)  + 

0 

c^CMo(’^)Vi.y(+j)}«i(x)dx 

i 

(3-215)  Qjj  =  2^^^ J  { c[CLs(x)cos0jj+Cj5j(x)sin0jj]Vj(+f)  + 

c^CMs(x)Vi,y(+i)}«l>i(x)dx 

(3-216)  Qj^  =  jpU^  J  {  c[CLc(x)cos0n+Cug(x)sin0ulVi(+7)  + 

0 

c^CMc(x)¥i.y(+f)}#i(x)dx 

The  general  equations  of  motion,  described  in  matrix  form  in 
equation  (3-139),  are  converted  into  the  final  harmonic  form  by 
substituting  the  harmonic  forms  of  the  modal  amplitudes  and  modal 
forces  from  equations  (3-189)  and  (3-214)  to  (3-216), 

■[Ki  0  0  iff^ion  r«y 

(3-217)  0 -<i>2tM]+[K]  0  (q,)  =  (C^,) 

.0  0  -<»^tM]+(K]JL{qe)J  LlQ.). 

Eqaatioo  (3-217)  might  look  deceivingly  linear,  but  this  is  not 
so.  First,  because  of  the  static  aerodynamics,  there  is  a  nonlinear 
dependence  of  the  mean  modal  forces  (Q^)  on  the  mean  modal  ampli¬ 
tudes  (q^),  and  similarly  in  a  quasi-steady  sense  for  the  harmonics 

Second,  because  of  the  nonlinear  formula 
tion  of  the  ONERA  aerodynamic  model,  there  is  also  a  nonlinear 
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dependence  across  the  harmonics  —  that  is,  there  is  a  dependence  of 
(Qq)  o”  ^  ^  because  of  the 

geometric  nonlinearities,  there  is  a  nonlinear  dependence  of  the 
stiffness  matrix  [K]  on  the  mean  modal  amplitudes  (q^). 

3.5.3  Parameters  of  Analysis  and  Implementation 

Once  the  governing  equations  are  set  up  for  the  various  prob¬ 
lems  of  static  deflection,  free  vibration,  2-dimensional  aerodynamics, 
and  flutter,  it  still  remains  to  be  determined  the  desired  parameters 
to  solve  those  problems. 

As  discussed  in  Section  3.3.2,  beam  bending  modes  and  root- 
warped  torsional  modes  were  chosen  to  model  the  structural 
dynamics.  Alternatively,  torsional  modes  with  warping  terms  ig¬ 
nored  —  i.e.  pure  sine  mode  shapes  —  could  have  been  used  but, 
while  these  would  have  accurately  predicted  natural  frequencies, 
they  would  have  overestimated  static  deflections  because  of  the  lack 
of  stiffness  from  root  warping. 

In  general,  since  the  final  stalled  flutter  problem  is  expected  to 
yield  a  single  degree  of  freedom  motion  in  either  the  first  torsional 
or  first  bending  mode,  it  was  deemed  necessary  to  only  model  the 
first  torsion  and  first  bending  modes  accurately.  For  an  uncoupled 
wing,  such  as  the  103/9015,  it  would  therefore  only  be  necessary  to 
include  those  two  modes  to  get  the  frequencies  correct.  However, 
other  factors  necessitate  larger  numbers  of  modes.  First,  because  of 
the  bending -torsion  coupling  of  the  other  layups,  larger  numbers  of 
modes  were  required  to  get  even  the  first  torsion  and  first  bending 
frequencies  accurately.  Second,  because  of  the  distributed  natures  of 


the  aerodynamic  loading  of  the  linear  &  nonlinear  flutter  analyses, 
larger  numbers  of  modes  were  required  to  accurately  model  the  dis¬ 
tributed  loads  as  the  summation  of  modal  forces.  In  other  words, 
because  of  the  bending-torsion  coupling  the  mass  &  stiffness  matri¬ 
ces  —  i.e.  the  left  hand  side  of  equation  (3-138)  —  indicate  a  need  for 
a  larger  number  of  modes,  while  the  accurate  modeling  of  the  modal 
forces  —  i.e.  the  right  hand  side  of  equation  (3-138)  —  also  indicates  a 
need  for  a  larger  number  of  modes.  It  was  decided  from  these  con¬ 
siderations  that  three  bending  and  three  torsion  modes  would  suffice 
to  accurately  model  the  first  bending  and  first  torsion  modes  through 
all  the  analyses. 

Again,  because  the  flutter  solution  is  expected  to  be  “locked”  at 
the  torsional  frequency,  only  one  harmonic  would  seem  necessary  for 
the  Hnal  analysis.  And  again,  because  of  the  coupling  between  har¬ 
monics  inherent  in  the  nonlinear  problem,  higher  harmonics  would 
seem  necessary.  However,  the  nonlinear  coupling  between  harmon¬ 
ics  only  occurs  through  the  aerodynamics,  and  hence  the  aerody¬ 
namic  analysis  by  itself  can  use  several  harmonics,  while  the  total 
flutter  analysis  can  use  fewer  harmonics  so  as  to  save  computational 
time. 

The  gross  harmonic  characteristics  that  the  aerodynamic  anal¬ 
ysis  is  trying  to  capture  are  described  graphically  in  Fig.  5.  As 
already  noted  by  Petot  [Ref.  52],  even  within  the  framework  of  a 
time-marching  scheme,  the  ONERA  model  does  a  poor  job  of  predict¬ 
ing  any  finer  details  (i.e.  higher  harmonics)  of  the  hysteresis  cycle. 
In  terms  of  harmonics,  the  important  characteristics  can  be  loosely 
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Fig.  5  Gross  characteristics  of  force  hysteresis 


labeled  as  “in-phase’*  for  the  first  sine  harmonic,  “out-of-phase”  for 
the  first  cosine  harmonic,  “figure  eight”  for  the  second  sine  harmonic, 
and  “banana”  for  the  second  cosine  harmonic. 

Physically,  the  first  sine  and  second  cosine  harmonics  are  the 
effects  of  the  static  curve  on  the  hysteresis  —  the  first  sine  harmonic 
falls  generally  along  the  linear  force  curve,  while  the  second  cosine 
harmonic  is  affected  by  the  deviation  due  to  the  static  stalling.  The 
first  cosine  and  second  cosine  harmonics  are  the  work  terms  —  that 
is,  they  give  the  cycle  its  hysteretic  nature  and  the  area  mapped  by 
each  cycle  gives  an  indication  of  the  work  done  by  the  flow  on  the 
airfoil.  In  general,  the  first  harmonics  can  be  loosely  associated  with 
the  linear  aerodynamics  (so  the  first  cosine  term  is  associated  with 
the  “linear”  work),  while  the  second  harmonics  can  be  loosely  asso¬ 
ciated  with  the  nonlinear  aerodynamics  (so  the  second  sine  term  is 
associated  with  the  “nonlir*;.^r”  work  or  work  due  to  stalling). 
Obviously,  these  are  just  the  broad  generalities  associated  with  each 
harmonic  since,  in  reality,  all  the  physical  aspects  couple  into  all  the 
harmonics  because  of  the  nonlinear  nature  of  the  fluid  flow. 
However,  it  seems  reasonable  that  to  capture  all  these  physical 
aspects  it  would  be  necessary  to  incorporate  at  least  the  Hrst  two 
harmonics. 

So,  in  calculating  the  2-dimensional  aerodynamics  at  each 
spanwise  location,  it  was  decided  to  use  a  two  harmonic  analysis. 
However,  for  the  full  flutter  analysis  only  one  harmonic  was  used. 
That  is,  the  2-dimensional  aerodynamic  analysis  took  a  single  har¬ 
monic  angle  of  attack  oscillation  as  its  input,  and  calculated  the 
resulting  two  harmonic  components  of  the  force  coefficients  (as 
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described  in  Section  3.2.3),  but  the  flutter  analysis  only  used  the 
first  harmonic  results  from  these.  As  with  the  modal  analysis  for  the 
structural  part  of  the  problem,  it  might  in  fact  be  necessary  to 
include  even  higher  harmonics  to  capture  the  proper  physical  aspects 
of  the  two  lowest  order  harmonics.  This  aspect  of  the  problem  was 
not  probed  in  the  current  investigation. 

The  theory  described  in  all  the  previous  sections  was  imple¬ 
mented  using  MacFortran™  code  on  a  Macintosh  Ilfx  at  the 
Technology  Laboratory  for  Advanced  Composites  at  the  Aeronautics 
&  Astronautics  Department  of  M.I.T.  The  source  code  of  these 
MacFortran™  programs  is  listed  in  Appendix  G.  A  ll-point  Gauss 
quadrature  scheme  was  used  for  all  integrations  that  could  not  be 
easily  evaluated  in  closed  form  —  eg.  mass  &  stiffness  integrals 
(equations  (3-146)  to  (3-158)),  modal  force  integrals  (equations 
(3-214)  to  (3-216)),  or  U-g  method  aerodynamic  integrals  (equation 
(3-181)).  The  Gauss  points  and  weights  are  listed  in  the  include  file 
“GAUSS. INC”  in  Appendix  G.  It  is  known  that  in  order  to  accurately 
integrate  higher  order  polynomials,  the  Gauss  quadrature  scheme 
places  more  emphasis  toward  endpoints  with  higher  clustering  and 
weighting  there  —  this  is  appropriate  for  the  current  analysis  because 
of  the  evanescent  contributions  to  the  mode  shapes  (sinh  &  cosh)  and 
because  of  the  aerodynamic  force  dropoff  at  the  tip. 
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Chapter  IV 

Experiment 

4.1  Test  Specimen  Sizing 

The  objectives  of  redesigning  the  test  specimens  were  twofold; 
first,  to  decrease  the  linear  flutter  velocity  to  within  the  limits  of  the 
available  wind  tunnel  facilities  (approx.  30  m/s);  second,  to  increase 
the  Reynolds  number  at  flutter  to  a  value  closer  to  that  for  which  the 
ONERA  aerodynamic  model  was  developed.  These  two  objectives  led 
to  a  single  overall  objective:  keep  the  linear  flutter  velocity  just 
under  the  wind  tunnel  limit  —  thus  pushing  the  Reynolds  number  as 
high  as  possible  by  means  of  the  wind  velocity  —  and  increase  the 
chord  as  much  as  possible.  These  design  objectives  were  constrained 
by  several  limitations. 

Choice  of  layup  —  to  ensure  a  wide  enough  range  of  bending- 
torsion  coupling,  and  because  of  the  manufacturing  errors  inherent  in 
the  layup  procedure,  we  chose  to  limit  ourselves  to  ply  angles  in 
increments  of  15°  only;  moreover,  we  desired  to  choose  our  layups 
such  that  one  had  a  divergence  velocity  above  the  wind  tunnel  limit, 
a  second  had  a  divergence  velocity  very  near  its  flutter  velocity,  and 
a  third  had  a  divergence  velocity  below  its  flutter  velocity,  but  not 
below  the  lower  wind  tunnel  limit  (approx.  10  m/s). 

Number  of  plies  —  in  general,  an  increase  in  number  of  plies 
increased  the  bending  and  torsional  stiffnesses  of  the  wings. 
Therefore,  on  the  one  hand,  we  wished  to  decrease  the  stiffness  so  as 
to  keep  the  flutter  velocity  within  the  wind  tunnel  limits  and  to 
allow  the  wing  to  twist  enough  to  reach  the  stall  angle.  On  the  other 


hand,  we  wished  to  keep  the  stiffness  high  enough  so  that  gravity 
bending  effects  would  be  negligible  and  so  that  bending  deflections 
would  not  diverge  too  quickly. 

Span  —  it  was  desirable  to  increase  the  span  as  much  as 
possible,  for  purposes  of  observability,  but  we  were  restricted  by  the 
size  of  the  wind  tunnel  (approx.  3  feet,  to  allow  for  wall  effects)  and 
by  the  flexibility  of  the  specimen:  we  did  not  want  it  to  become  so 
long  and  thin  that  it  would  break  at  divergence  or  flutter. 

Chord  —  again,  it  was  desirable  to  increase  the  chord  as  much 
as  possible,  so  as  to  increase  the  Reynolds  number,  but  it  was  also 
necessary  to  keep  the  chord  small  enough  such  that  the  wing  would 
be  torsionally  soft  enough  to  reach  flutter  within  the  wind  tunnel 
limits.  Both  the  chord  and  the  span  were  also  limited  by  the  size  of 
the  available  autoclave  at  the  Technology  Laboratory  for  Advanced 
Composites  manufacturing  facility. 

Most  of  these  goals  were  achieved,  and  improved  upon  the 
layups  of  Refs.  94  and  95,  with  the  following  designs:  layups  of 
[O3/9OI5,  i+lSj/Ojls,  and  [-ISj/Ojls  with  the  span  doubled  from  1  ft. 
to  approximately  2  ft.,  and  the  half-span  aspect  ratio  kept  at  4. 

4.2  Test  Specimen  Preparation 

The  test  specimens  were  constructed  from  Hercules 
AS4/3501-6  graphite/epoxy  prepreg  tape  from  Lot  No.  5874-2, 
Spool  No.  4  and  Lot  No.  6075-2,  Spool  No.  5D,  using  the  standard 
TELAC  manufacturing  procedure  [Ref.  96].  The  laminates  and  curing 
materials  were  arranged  on  an  aluminium  curing  plate  as  shown  in 
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Fig.  6  Cross-section  of  symmetric  curing  assembly 
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Fig.  6  and  cured  in  a  Baron  model  BAC-35  autoclave  using  the 
standard  TELAC  curing  cycle  described  by  Fig.  7.  After  curing,  the 
laminates  were  post-cured  in  a  forced  air  circulation  oven  at  350^  F 
for  eight  hours.  After  post-curing,  rectangular  test  specimens 
584  mm  (23  in)  long  and  140  mm  (5.5  in)  wide  were  cut  from  the 
laminates  using  a  diamond-coated  cutting  wheel  mounted  on  an 
automatic  feed,  milling  machine. 

Loading  tabs  152  mm  (6  in)  by  25.4  mm  (1  in)  were 
machined  from  3.2  mm  (1/8  in)  aluminum  plate  and  bonded  to  the 
base  of  each  test  specimen  with  FM- 123-2  film  adhesive,  cured  using 
the  standard  TELAC  bond  curing  cycle.  The  loading  tabs  were 
intended  to  aid  in  aligning  the  test  specimen  in  the  clamping  fixture 
and  to  prevent  damage  to  the  plate  surface  fibers. 

To  get  an  indication  of  the  lateral  deflections,  strain  gauges 
were  attached  to  the  base  of  each  test  specimen  at  the  midchord,  as 
shown  in  Fig.  8.  Two  Micro-Measurement  EA-06-125AD-120  strain 
gauges,  from  Lot  No.  R-A38AD60S  with  a  gauge  factor  of  2.055,  were 
attached  to  both  sides  of  each  specimen  near  the  root  to  measure 
bending  strain.  Two  Micro-Measurement  EA-06-250TK-120  strain 
gauges,  from  Lot  No.  R-A38AD399  with  a  gauge  factor  of  2.02,  were 
attached  to  both  sides  of  each  specimen  near  the  root  to  measure 
torsion  strain.  The  two  bending  gauges  were  wired  together  as  a 
two-arm  bridge  circuit  with  three  external  lead  wires.  The  two 
torsion  gauges  were  wired  together  as  a  four-arm  bridge  circuit  with 
four  external  lead  wires.  Wiring  the  strain  gauges  in  this  manner 
provided  automatic  temperature  compensation.  Finally,  the  gauges 
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Fig.  8  Wing  construction  and  specimen  dimensions 


and  exposed  wiring  were  coated  with  Micro- Measuren^ent  M-Coat  A, 
an  air-drying  polyurethane. 

The  NACA  0012  fairings  were  cut  from  508  mm  (20  in) 
blocks  of  styrofoam  using  a  computer  controlled  hot  wire  cutter  and 
were  then  epoxied  to  the  top  and  bottom  of  the  graphite/epoxy 
plates. 

4.3  -iiatit  PsflgsiLQg  Tsits 

The  static  deflection  test  setup  (see  Fig.  9)  consisted  of  a 
clamping  device  bolted  to  a  large  aluminum  table  (the  "optics  bench" 
at  M.I.T.'s  Space  Engineering  Research  Center).  Two  low  friction 
pulleys  were  attached  to  vertical  rods  such  that  a  force  or  moment 
could  be  applied  to  the  test  specimen  at  its  tip.  Rulers,  graduated  in 
millimeters,  were  attached  to  Dexion  angle-iron  to  facilitate 
measuring  the  test  specimens'  tip  deflections.  Threads,  routed  over 
the  pulleys  and  attached  to  weights,  could  be  attached  at  any  point 
along  the  wooden  dowels  so  as  to  transfer  either  a  force  or  a  moment 
to  the  test  specimen. 

The  deflection  indicator  was  aligned  with  the  tip  of  the  test  specimen 
and  the  test  specimen  clamped  in  the  vise.  For  the  tip  force  test,  the 
pulleys  were  aligned  with  the  plate  midchord  and  threads  from  the 
center  of  the  wooden  dowels  were  routed  over  the  pulleys.  Weights 
in  increments  of  100  grams  were  successively  attached  to  the 
threads,  first  to  give  positive  deflections,  then  to  give  negative 
deflections.  As  each  weight  was  attached,  the  readings  from  both 
pointers  were  recorded,  along  with  the  applied  weight  and  the 
measured  bending  and  torsion  strains. 
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Fig.  9  Static  deflection  test  setup 


Next,  the  pulleys  were  aligned  with  the  leading  and  trailing 
edge  of  the  plate  tip  and  the  threads  routed  from  the  plate  corners 
over  the  pulleys,  so  as  to  produce  a  positive  moment  when  equal 
weights  were  attached.  Weights  of  20  gram  increments  were 
successively  attached  to  each  thread  of  the  couple,  and  readings  from 
the  pointers  and  the  strain  gauges  were  again  recorded  along  with 
the  applied  weights.  The  pulleys  were  then  switched  to  diagonal 
opposites  of  the  plate  so  that  negative  moments  could  be  applied, 
and  the  same  procedure  applied. 

For  each  data  point,  the  lateral  deflection  of  the  elastic  axis  and 
the  rotation  about  the  elastic  axis  were  calculated  from  the  pointer 
measurements.  The  lateral  and  angular  deflections  were  plotted 
versus  applied  tip  force  for  each  test  specimen,  and  compared 
against  the  Raylcigh-Ritz  analysis.  Similarly,  the  lateral  and  angular 
deflections  were  plotted  versus  applied  tip  moment  for  each  test 
specimen,  and  compared  against  the  same  analysis.  Linearized  fits 
between  lateral  deflection  and  bending  strain,  and  between  angular 
deflection  and  torsion  strain,  were  conducted  so  that  a  linear  relation 
could  be  later  applied  to  the  flutter  tests.  The  results  of  the  static 
deflection  tests  are  discussed  in  Section  5.1.1. 

4A.-EifiC-YibiaUQn  Tests 

"Pluck"  tests  were  conducted  before  each  flutter  test  to  verify 
the  free  vibration  frequencies  of  the  wings.  After  the  wings  had 
been  clamped  ve:tically  in  the  specimen  stand,  they  would  either  be 
sharply  tapped  or  given  a  brief,  sharp  torsional  force,  thus  exciting 
several  of  the  lower  bending  and  torsion  modes.  The  strain  gauges 


were  wired  to  2120  Strain  Gauge  Amplifiers,  with  a  two-arm  D.C. 
bridge  for  the  bending  gauges  and  a  four-arm  D.C.  bridge  for  the  tor¬ 
sion  gauges,  and  their  readings  were  recorded  on  floppy  disk  using  a 
Nicolet  digital  oscilloscope. 

Later,  these  signals  were  passed  through  a  Fourier  analyzer  so 
as  to  decompose  the  frequency  content  of  the  signal.  Since  the  free 
vibration  modes  would  presumably  have  been  excited  by  the  sharp 
taps,  the  peaks  of  the  resulting  frequency  spectrum  of  the  FFT  would 
correspond  to  the  natural  frequencies  of  the  specimens.  The  signals 
were  made  up  of  2048  data  points  taken  at  S  ms  between  data 
points,  thus  corresponding  to  2048  data  points  over  10  seconds  or, 
approximately,  a  frequency  range  of  0-100  Hz  with  a  frequency 
resolution  of  0.1  Hz.  The  results  of  the  free  vibration  tests  are 
discussed  in  Section  S.1.2. 

4.5  Wind  Tunnel  Tests 

All  wind  tunnel  tests  were  conducted  in  the  M.I.T.  Department 
of  Aeronautics  and  Astronautics  acoustic  wind  tunnel.  The  acoustic 
wind  tunnel  is  a  continuous  flow  tunnel  with  a  1.5  m  (5  ft)  x  2.3  m 
(7.5  ft)  free  jet  test  section  2.3  m  (7.5  ft)  long.  The  tunnel  was 
powered  by  a  100  HP  motor  giving  it  a  continuously  variable 
velocity  range  of  0  m/s  to  30  m/s  (0  ft/scc  to  105  ft/sec).  The 
tunnel  control  panel  was  located  inside  the  chamber  and  the  velocity 
was  controlled  by  two  knobs  (coarse  and  fine  speed  control). 

The  test  setup,  shown  in  Fig.  10,  consisted  of  a  turntable 
machined  from  aluminum,  mounted  on  a  914  mm  (36  in)  tall, 
cylindrical  pedestal  made  of  51mm  (2  in)  thick  steel  pipe,  305  mm 


(24  in)  in  diameter.  The  pedestal  was  mounted  to  the  floor  of  the 
wind  tunnel  section.  A  wooden  cover  disk  762  mm  (30  in)  in 
diameter  was  used  to  ensure  the  pedestal  did  not  affect  the  flow 
over  the  test  specimen,  and  thus  provided  smooth  airflow  past  the 
test  specimen.  A  pointer  attached  to  the  free  rotating  portion  of  the 
turntable,  and  an  angle  indicator  attached  to  the  fixed  base  of  the 
turntable,  provided  a  consistent  means  of  reading  the  angle  of  attack 
of  the  test  specimen. 

The  bending  and  torsion  strain  gauges  were  wired  to  a  terminal 
strip  attached  to  the  fixed  pedestal,  which  was  in  turn  wired  to  2120 
Strain  Gauge  Amplifiers.  The  amplifiers  had  a  two-arm  D.C.  bridge 
installed  in  channel  1  for  the  bending  gauges  and  a  four-arm  D.C. 
bridge  installed  in  channel  2  for  the  torsion  gauges.  The  bending 
and  torsion  outputs  from  the  Strain  Gauge  Amplifiers  were  fed  to  a 
Nicolet  Digital  Oscilloscope  where  the  signals  could  be  recorded  on 
floppy  disk.  Visual  data  was  recorded  by  placing  a  mirror  at  a  45® 
angle  above  the  test  setup,  and  recording  onto  8mm  videotape  the 
overhead  view  of  the  tip  deflections.  For  sinusoidal  flutter  motion,  a 
strobe  light  was  used  to  help  visualize  the  oscillations. 

The  procedure  for  running  the  flutter  tests  was  done  in  two 
steps.  First,  the  flutter  boundary  was  determined.  The  root  angle  of 
attack  was  increased  by  increments  of  1°,  and  at  each  angle  of 
attack  the  velocity  was  slowly  increased  until  the  onset  of  flutter  was 
observed,  marked  by  a  visually  noticeable  amplitude  of  oscillation 
and  a  clear  frequency  of  oscillation  (as  distinguishable  from  wind 
tunnel  turbulence).  Next,  static  and  flutter  data  was  taken  at  1°,  5°. 
10°,  and  15°  root  angles  of  attack.  At  each  of  these,  the  velocity  was 


increased  in  increments  of  1  m/s  and  visual  and  strain  gauge  data 
taken  at  each  velocity  value.  This  was  continued  up  to  the  flutter 
boundary.  The  procedure  was  also  continued  past  the  flutter 
boundary,  for  larger  amplitudes  of  oscillation,  but  care  was  taken  not 
to  remain  too  long  past  the  flutter  boundary,  for  fear  of  damaging 
the  specimens. 
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Chapter  V 

Results  and  Discussion 


The  Results  &  Discussion  chapter  is  divided  into  two  sections: 
pre-flutter  results  and  flutter  analysis.  The  objectives  of  the  section 
on  pre-flutter  results  is  to  verify  individually  the  various  compo¬ 
nents  that  make  up  the  flutter  analysis  —  stiffness  properties,  mass 
properties,  effects  of  geometric  nonlinearities,  and  2-dimensional 
aerodynamics  —  using  the  various  methods  of  static  deflection  tests, 
in  vacuo  dynamics  (i.e.  free  vibration)  at  zero  deflection,  and  free 
vibration  with  tip  deflection.  Once  the  individual  components  of  the 
flutter  analysis  are  verified,  the  objective  of  the  section  on  flutter 
analysis  is  to  combine  these  components  and  move  from  linear  anal¬ 
ysis  to  fully  nonlinear  analysis  in  a  stepwise  fashion.  This  section 
starts  by  approaching  the  problem  using  a  fully  linear  U-g  analysis; 
adds  nonlinearity  through  large  mean  deflections  and  angles  of 
attack  while  keeping  oscillation  amplitudes  small  (i.e.  flutter  bound¬ 
ary  analysis);  then  adds  another  level  of  nonlinearity  by  considering 
large  amplitudes  of  oscillation. 

5.1  Pre-Flutter  Results 

5.1.1  Static  Deflections 

The  experimental  results  of  the  static  deflection  tests  for  the 
[03/9015,  [+152/0215,  and  [-I52/O2I5  laminates  with  NACA  0012 
styrofoam  fairings  are  compared  in  Figs.  11  to  13  with  the 
Rayleigh-Ritz  analysis  described  in  Section  3.4.1.  These  figures  show 
excellent  agreement  between  experiment  and  analysis. 


Because  of  the  symmetry  of  the  mass  and  stiffness  matrices  — 
i.e.  the  bending-torsion  coupling  terms  are  equal  to  the  torsion¬ 
bending  coupling  terms  —  the  analytic  force-vs. -angle  dF/d0  and 
moment-vs. -deflection  dM/dh  slopes  should  be  equal  when 
expressed  in  the  same  units.  For  example,  for  the  [O3/9OI5  layup, 
both  these  analytic  slopes  are  approximately  zero  (with  some  slight 
bending-torsion  coupling  due  to  the  chordwise  asymmetry  of  the 
styrofoam  fairings),  while  for  the  [+152/02]s  layup  the  analytic 
values  as  seen  on  Fig.  12  are  dF/d0=-.527  N/deg  and 
dM/dh=-.302  Nm/cm  or,  in  equivalent  units,  -30.2  N/rad  and 
-30.2  Nm/m  respectively.  The  magnitudes  of  the  analytically 
derived  slopes  for  the  (-152/02]s  layup  are  almost  exactly  the  same 
as  for  the  [+I52/O2IS  layup,  just  opposite  in  sign,  as  is  readily  seen  by 
comparing  Figs.  12  and  13  —  again,  the  slight  difference  in  absolute 
values  is  due  to  the  slight  chordwise  asymmetry  of  the  styrofoam 
fairings.  The  fact  that  the  experimental  values  match  so  closely  the 
analytic  values  indicates  that  the  assumption  of  symmetry  is  valid. 
In  other  words,  neither  manufacturing  defects  (such  as  misaligned 
layup,  or  variability  of  ply  thickness)  nor  styrofoam  asymmetry 
adversely  affect  the  symmetry  assumption. 

The  force-vs.-deflection  and  moment-vs.-deflection  experimen¬ 
tal  slopes  are  almost  purely  linear  up  to  the  expected  maximum 
deflection  that  would  be  encountered  during  a  flutter  experiment,  i.e. 
15-20  cm  or  about  40%  of  the  span.  However,  the  force-vs. -twist 
and  moment-vs. -twist  experimental  slopes  show  hardening  charac¬ 
teristics  as  compared  against  the  linear  analysis,  that  is,  the  experi* 


mental  values  require  a  greater  force  or  moment  to  produce  the 
same  twist  than  would  be  predicted  by  the  analysis. 

These  hardening  effects  appear  for  the  [03/9015  layup  below 
-4°  and  above  +6°,  for  the  [+152/02]s  layup  below  -6°  and  above  +6°. 
and  for  the  [- 152/02)5  layup  below  -6°  and  above  +6°.  For  a  tip  twist 
of  9®,  the  discrepancy  between  the  required  moment  from  analysis 
and  from  experiment  is  consistently  about  30%  (relative  to  the 
experimental  values)  for  all  of  the  layups.  This  observed  hardening 
effect,  which  is  not  accounted  for  in  the  analysis,  would  imply  that  in 
a  flutter  analysis,  once  the  magnitude  of  the  twist  exceeded  6°,  that 
the  expected  experimental  phenomenon  would  harden  more  quickly 
that  the  analytic  phenomenon  predicted  by  the  current  analysis. 
Typical  twist  values  encountered  in  flutter  for  the  current  investiga¬ 
tion  are  on  the  order  of  10°  for  light  stall  flutter  (root  angles  of 
attack  below  the  stall  angle),  and  on  the  order  of  5°  for  deep  stall 
flutter  (root  angles  of  attack  at  or  above  the  stall  angle),  and  there¬ 
fore  it  is  expected  that  some  structural  nonlinearity  will  be  unac¬ 
counted  for  by  the  analysis  near  linear  flutter.  Also,  an  amplitude  of 
oscillation  in  flutter  of  6°  is  generally  considered  “moderate”  in  terms 
of  the  current  aerodynamic  analysis,  while  anything  larger  is  consid¬ 
ered  “large”.  That  is,  experimentally  all  amplitudes  from  small  to 
large  are  observed  (as  can  be  seen  from  the  figures  in  Section  S.2.3), 
but  the  aerodynamic  analysis  described  in  Chapter  3  is  assumed  to 
be  valid  for  moderate  amplitudes  and  to  break  down  for  large  ampli¬ 
tudes. 

Within  the  range  of  -6°  to  +6°  twist,  the  analytic  prediction  of 
the  twist  from  the  applied  forces  generally  falls  within  less  than  1° 


of  the  experiment,  which  is  less  than  the  experimental  error  for  the 
measured  angles.  Likewise,  the  analytic  prediction  of  the  deflections 
from  the  applied  forces  falls  within  the  experimental  error  over  the 
entire  range  that  would  be  expected  in  flutter.  Therefore,  compari¬ 
son  of  the  experimental  static  deflections  with  their  analytic  predic¬ 
tions  indicates  that  the  stiffness  properties  of  the  wings  are  accu¬ 
rately  predicted  for  most  of  the  range  for  which  the  flutter  analysis 
is  expected  to  be  applied,  and  will  only  lack  some  cubic  stiffening  in 
torsion  at  flutter  values  near  divergence  or  at  large  amplitudes  of 
oscillation. 


Fig.  11  [03/90]^  wing  static  deflection  results 
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Fig.  12  [-»‘152/02]s  wing  static  deHection  resuits 


5.1 .2  Linear  Free  Vibration 

Natural  vibration  frequencies  for  the  N  AC  A  0012  wings  with¬ 
out  tip  deflection  were  determined  both  experimentally  and  analyti¬ 
cally,  and  are  tabulated  in  Table  2.  Although  these  are  listed  as  1st 
bending  (IB),  1st  torsion  (IT),  et  cetera,  with  highly  coupled  lami¬ 
nates  this  distinction  becomes  much  less  meaningful  because  of  the 
high  bending-torsion  coupling.  Figs.  14  and  15  show  the  uncoupled 
mode  shapes  of  the  [03/9015  layup  and  the  coupled  mode  shapes  of 
the  [+152/02)5  layup. 

The  experimental  frequencies  show  excellent  agreement  with 
the  analysis  for  the  first  &  second  bending  modes  and  the  first  tor¬ 
sional  mode.  While  the  percentage  errors  for  the  first  bending  mode 
frequencies  might  seem  high,  it  should  be  noted  that  the  frequency 
resolution  of  the  Fast  Fourier  Transform  that  was  applied  to  the  sig¬ 
nal  from  the  pluck  test  (see  Section  4.4)  was  about  0.1  Hz,  and 
therefore  a  large  part  of  the  0.3  Hz  discrepancy  might  be  accounted 
for  by  this  experimental  error.  The  analysis  could  not  be  used  as 
comparison  against  experiment  for  the  higher  modes  because  it  was 
found  to  be  too  difficult  to  significantly  excite  the  higher  modes  by 
the  pluck  test  described  in  Section  4.4,  but  they  are  less  important 
in  the  final  analysis  since  they  are  only  intended  as  corrections  to  the 
more  important  lower  modes.  One  would  speculate  that  the  higher 
modes  are  likely  less  well  predicted  because  the  styrofoam  fairing  is 
discontinuous  (i.e.  it  does  not  cover  the  flat  plate  for  a  short  span 
near  the  root),  and  root  warping  terms  become  more  significant  for 


higher  modes  because  of  the  exponentially  growing  evanescent  terms 
(i.e.  the  cosh  &  sinh  contributions  to  the  mode  shape). 

It  is  noteworthy  that  the  frequencies  of  all  the  layups  fall  in 
almost  the  same  range,  both  analytically  and  experimentally.  For 
example,  all  the  first  bending  frequencies  are  clustered  near  4  Hz,  all 
the  first  torsion  frequencies  are  clustered  near  23  Hz,  and  all  the 
second  bending  frequencies  are  clustered  near  27  Hz.  The  choice  of 
layups,  picked  so  as  to  keep  the  flutter  and  divergence  speeds  within 
the  limited  range  of  the  laminar  flow  of  the  wind  tunnel,  is  likely  the 
source  of  this  coincidence. 

The  reasons  why  these  frequencies  remain  relatively 
unchanged  are  several.  First,  as  indicated  in  Appendix  B,  the  ^ 
values  are  all  clustered  near  10  Nm  for  all  the  layups,  so  it  would  be 
expected  that  the  first  and  second  bending  frequencies  would  remain 
relatively  unchanged.  Second,  again  as  indicated  in  Appendix  B,  the 
P  values  for  all  the  layups,  indicating  the  effect  of  the  root  warping 
on  the  torsional  frequency,  all  fall  below  O.OS,  which  leads  to  a 
change  in  the  first  torsional  frequency  of  less  than  10%  [Jensen, 
Ref.  70].  Third,  as  indicated  in  Appendix  B,  while  the  values 
vary  by  a  factor  of  almost  two,  these  values  are  for  the  flat  plates 
only.  From  Appendix  A  one  sees  that  while  the  shear  modulus  of 
the  styrtrfbam  is  three  orders  of  magnitude  smaller  than  the  shear 
modulus  of  the  graphite/epoxy  (8  MPa  as  compared  to  5.3  GPa),  the 
graphite/epoxy  is  only  1  mm  thick  while  the  styrofoam  at  its  widest 
is  12%  of  the  chord  or  17  mm  thick.  Therefore,  because  of  the  z^ 
stiffness  dependency  on  the  thickness,  the  torsional  stiffness  contri¬ 
bution  from  the  styrofoam  is  comparable  to  that  of  the 
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graphitc/epoxy.  (This  would  not  be  true  of  the  bending  stiffness, 
since  the  longitudinal  modulus  of  the  graphite/epoxy  is  about  four 
orders  of  magnitude  greater  than  that  of  the  styrofoam.)  As  sug¬ 
gested  in  Section  3.3.3,  the  contribution  to  the  torsional  stiffness 
from  the  styrofoam  fairings  may  be  accounted  for  by  “smearing”  the 
styrofoam  evenly  across  the  chord  at  approximately  80%  of  its 
maximum  thickness  —  this  would  lead  to  an  “equivalent”  contri¬ 
bution  from  the  styrofoam  fairings  of  approximately  1.2  Nm,  which 
is  greater  than  the  contributions  from  the  graphite/epoxy  for  all 
of  the  layups  (see  Appendix  B).  For  this  reason,  the  first  torsional 
frequencies  remain  about  the  same,  despite  the  difference  in  the  flat 
plate  torsional  properties  between  layups. 

This  small  variance  in  frequency  has  significant  implication  on 
the  linear  U-g  flutter  analysis:  if  there  are  noticeable  variations  in 
flutter  results  among  the  different  layups,  then  these  cannot  be 
attributed  to  frequency  coalescence  (since  the  natural  frequencies 
are  all  almost  the  same),  but  must  be  dependent  on  the  bending - 
torsion  effect  on  mode  shapes  as  well. 
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Experiment  Analysis  %  error 


Table  2.  Free  vibration  frequencies  (all  values  in  Hz) 


5.1.3  Nonlinear  Free  Vibratian 

The  nonlinear  natural  vibration  frequencies  for  the  NACA  0012 
wings  were  determined  analytically  over  a  range  of  tip  deflections 
from  0  cm  to  20  cm,  assumed  to  result  from  a  distributed  load.  The 
analysis,  as  described  in  Section  3.4.2,  was  carried  out  using  varying 
numbers  of  bending,  torsion,  and  fore-&-aft  modes,  to  determine 
how  many  modes  would  be  required  to  accurately  describe  the  fre¬ 
quency  variation  over  the  desired  range  of  tip  deflections.  These 
various  analyses  were  compared  against  a  finite  difference  method 
that  exactly  solved  the  equations  of  motion  described  by  Euler  angles 
[Ref.  74].  However,  this  finite  difference  method  ignored  most 
warping  effects.  So,  for  consistency,  for  the  comparison  illustrated  in 
Fig.  16  only,  the  warping  term  in  Equation  (3-58)  was  left  out  and 
pure  sine  torsional  mode  shapes  were  used  for  the  modal  analysis 
instead  of  the  mode  shapes  described  in  Section  3.3.2. 

The  results  of  this  comparison  of  methodologies  are  presented 
in  Fig.  16  for  the  [03/90]^  wing.  Note  that  because  the  warping 
terms  have  been  ignored,  the  linear  natural  frequencies  at  0  cm  do 
not  correspond  to  those  in  Table  2. 

A  minimum  of  two  fore-&-aft  modes  are  required  to  suffi¬ 
ciently  describe  the  proper  trend  in  first  torsional  frequency  varia¬ 
tion;  a  minimum  of  three  torsion  and  three  fore-&-aft  modes  are 
required  to  sufficiently  describe  the  trend  in  the  second  torsional 
frequency;  and  a  minimum  of  four  torsion  and  four  fore-&-aft  modes 
are  required  to  sufficiently  describe  the  trend  in  the  third  torsional 
frequency.  For  accuracy,  as  compared  to  the  exact  analysis,  three 
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torsion  and  three  fore-&-aft  modes  seem  to  be  necessary  for  describ¬ 
ing  the  first  and  second  torsional  frequency  variations,  while  five 
torsion  and  five  fore-&-aft  modes  seem  to  be  necessary  for  the  third 
torsional  frequency.  So,  in  general,  a  minimum  of  three  torsion  and 
three  fore-&-aft  modes  are  required  to  accurately  predict  the  first 
torsion  frequency,  with  an  additional  torsion  and  an  additional  fore- 
&-aft  mode  required  for  each  subsequent  torsion  frequency. 

The  trends  exhibited  by  both  the  exact  and  the  modal  analyses 
indicate  a  softening  trend  in  all  the  torsional  frequencies  —  a  drop  of 
approximately  10%  in  the  first  torsion  frequency,  a  drop  of  approxi¬ 
mately  30%  in  the  second  torsion  frequency,  and  a  drop  of  approxi¬ 
mately  15%  in  the  third  torsion  frequency.  These  trends  reflect 
those  observed  by  Minguet  [Ref.  74]  for  specimens  of  much  higher 
aspect  ratio  —  semi-span  AR^lS  as  opposed  to  semi-span  AR=4  for 
the  current  analysis  —  but  show  a  less  marked  drop  in  frequency  as 
tip  deflection  increases.  This  less  noticeable  coupling  is  likely  due  to 
the  high  stiffness  of  the  fore-&-aft  mode  which  comes  from  the  large 
chord-to-thickness  ratio  —  in  the  current  investigation,  the  fore-&-aft 
stiffness  is  four  orders  of  magnitude  greater  than  the  out-of-plane 
bending  stiffness.  The  layups  are  so  stiff  in  the  fore-&-aft  direction 
that  the  v  component  is  very  small,  and  couples  only  lightly  into  the 
lower  mode  torsional  9  motion. 

It  should  also  be  noted  that  the  exact  values  are  stiffer  (i.e. 
higher  in  frequency)  than  those  predicted  by  the  modal  analysis. 
This  is  less  noticeable  for  the  first  torsion  frequency,  but  more  so  for 
the  second  and  third  torsion  frequencies.  —  eg.  at  20  cm  tip  deflec¬ 
tion  the  exact  and  modal  analyses  for  the  second  torsion  frequency 


differ  by  approximately  10  Hz,  or  about  20%  of  the  exact  value.  This 
discrepancy  is  rooted  in  the  two  assumptions  of  the  modal  analysis. 
First,  the  modal  analysis  is  based  on  an  ordering  scheme  for  moder¬ 
ate  deflections,  whereas  the  exact  analysis  is  valid  for  arbitrarily 
large  deflections.  Also,  the  fact  that  a  discrete  number  of  modes  is 
being  used  in  the  modal  analysis  will  affect  the  final  stiffness  of  the 
problem.  The  first  of  these  two  effects  is  the  major  contributor  to 
the  discrepancy,  since  with  more  and  more  modes  the  analysis  is  still 
converging  to  frequency  values  below  those  of  the  exact  analysis. 

From  this  comparison  it  can  be  estimated  that  the  modal  anal¬ 
ysis  is  accurate  up  to  “moderate”  deflections  of  about  10%  of  the  span 
(or  about  S  cm),  and  are  not  accurate  but  follow  the  correct  soften¬ 
ing  trend  for  “large”  deflections,  i.e.  above  10%  of  the  span.  If  the 
second  and  third  torsional  modes  were  directly  involved  in  the  flut¬ 
ter  analysis,  then  this  discrepancy  at  large  deflections  would 
adversely  affect  the  analysis  since  the  wings  are  likely  to  either  be 
diverged  or  else  flutter  at  high  velocity,  and  thus  the  typical  deflec¬ 
tion  at  flutter  would  likely  be  above  10  cm.  However,  the  second 
and  third  torsional  modes  are  only  really  used  in  the  analysis  as 
minor  corrections  to  the  lower  modes,  so  the  previously  mentioned 
discrepancy  is  not  likely  to  adversely  affect  the  final  flutter  analysis. 

It  should  also  be  noted  that  for  very  few  fore-&-aft  modes  the 
analysis  is  entirely  spurious,  for  example  3  torsion  &  1  fore-&-aft  for 
the  1st  torsion  frequency,  3  torsion  &  2  fore-&-aft  for  the  2nd  tor¬ 
sion  frequency,  and  3  torsion  &  3  fore-&-aft  for  the  3rd  torsion  fre¬ 
quency.  The  analyses  using  these  parameters  show  a  rapid  harden¬ 
ing  trend  instead  of  a  slow  softening  trend.  In  these  cases,  there  are 


so  few  fore-&.aft  modes  that  the  torsion/torsion  nonlinear  terms 
(characterized  by  of  equation  (3-157))  dominate  the  torsion/ 

fore-A-afl  nonlinear  terms  (characterized  by  of  equation 

(3-158)). 

In  terms  of  application  to  flutter  analysis,  it  is  important  that 
while  the  second  and  third  torsion  frequencies  show  moderate  soft¬ 
ening,  the  first  torsion  frequency  shows  little  change  at  all  (only 
2  Hz  change  over  a  range  of  40%  tip  deflection,  which  is  within  the 
error  of  the  linear  analysis  presented  in  the  previous  section),  and 
the  modal  analysis  matches  closely  the  exact  analysis.  Since  the  first 
torsion  mode  is  dominant  in  both  the  coalescence  of  a  linear  flutter 
analysis,  or  the  single  degree  of  freedom  of  a  nonlinear  flutter  anal¬ 
ysis,  it  is  clear  that  the  nonlinear  geometric  effects  will  have  little 
influence  on  the  flutter  solution.  While  it  is  true  that  not  only  the 
torsion  frequency  will  also  be  affected  by  the  nonlinear  geometric 
effects,  but  also  the  torsion  mode  shape,  again,  because  the  fore-&- 
aft  stiffness  if  so  large,  the  forc-&-aft  contribution  to  the  altered 
mode  shape  is  negligible.  What  little  contribution  there  is  from  the 
fore-&-aft  mode  has  essentially  no  influence  on  the  aerodynamics  — 
the  fore-&-aft  velocity  is  so  small  as  compared  to  the  free  stream 
velocity  that  the  dynamic  pressure  is  negligibly  affected.  There 
would  also  be  a  contribution  to  the  flapping  rate  by  the  rotation  of 
the  fore-A-aft  velocity  from  the  local  wing  frame  into  the  frame  of 
the  free  stream  —  again,  this  is  second  order  and  negligible  because  it 
involves  the  product  of  two  small  quantities,  the  fore-&-aft  velocity 
and  the  angle  from  the  local  twist. 
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Fig.  17  shows  the  results  of  the  modal  analysis  with  the 
warping  terms  included  and  demonstrates  that  the  trends  remain  the 
same  and  of  the  same  order  of  magnitude  as  for  Fig.  16.  The  second 
and  third  torsion  frequencies  show  the  same  trends  of  moderate 
softening.  The  first  torsion  frequency  exhibits  slight  hardening 
instead  of  slight  softening,  but  the  increase  of  approximately  2  Hz 
over  a  40%  tip  deflection  still  remains  not  significant  enough  to  merit 
ignoring  the  geometric  nonlinearities  in  a  flutter  analysis.  It  should 
be  noted  here  the  noticeable  change  between  Figs.  16  and  17  in 
linear  frequency  from  analysis  without  and  with  torsional  warping 
terms  included.  As  noted  in  the  previous  Section  5.1.2,  the  warping 
values  3  are  relatively  small,  so  the  first  torsion  frequency  changes 
only  a  small  amount  (approx.  21  Hz  to  25  Hz,  or  20%  change). 
However,  the  increased  dependence  of  the  higher  modes  on  p,  and 
the  strong  influence  of  the  discontinuity  of  the  styrofoam  fairing 
near  the  wing  root,  cause  the  changes  in  the  second  and  third  tor¬ 
sional  frequencies  to  be  more  noticeable  (approx.  63  Hz  to  79  Hz,  or 
25%  change,  and  105  Hz  to  145  Hz.  or  40%  change). 
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Tip  deflection  (cm) 

Fig.  16  [03/90)6  wing  frequency  variation,  torsional 
waning  terms  not  inciuded 


5.1.4  Two-Dimensional  Aerodynamics 

Different  analysis  methods  for  two-dimensional  coefficient 
hysteresis  for  a  NACA0012  airfoil  in  low  Reynolds  number  flow  are 
compared  against  one  another  in  Figs.  18  and  19.  The  analysis 
methods  that  are  compared  are  constant  coefficient  harmonic  bal¬ 
ance,  non-constant  coefficient  harmonic  balance,  and  fourth-order 
Runge-Kutta  time  marching.  The  purpose  of  comparing  these  analy¬ 
sis  methods  is  to  determine  first,  whether  non-constant  coefficients 
are  required  instead  of  constant  coefficients,  and  second,  whether  a 
harmonic  analysis  is  sufficient  to  accurately  describe  the  hysteresis 
loop  as  compared  against  a  method  that  is  presumably  an  exact  solu¬ 
tion  to  the  equations  of  motion. 

Fig.  18,  ^  a  moderate  amplitude  of  oscillation  of  4°,  over  a 
range  of  rc.d..ced  frequencies  from  0.10  to  0.25,  indicates  that  the 
non-constant  coefficient  analysis  compares  favorably  against  the 
exact  Runge-Kutta  analysis.  This  figure  also  indicates  the  major 
deficiency  of  the  constant  coefficient  analysis:  since  the  coefficients 
are  constant,  there  is  no  nonlinear  coupling  between  the  mean  of  the 
force  coefflcient  in  Fig.  18)  and  its  other  harmonic  components, 

and  therefore  there  is  no  dependence  of  the  mean  on  the  reduced 
frequency.  However,  it  is  clear  from  the  non-constant  and  Runge- 
Kutta  analyses  that  the  mean  of  the  force  coefHcient  is  in  fact 
strongly  influenced  by  the  reduced  frequency. 

Table  3  indicates  more  clearly  the  appropriate  trends  for  the 
first  harmonics,  which  are  the  harmonics  that  are  likely  to  be  most 
dominant  in  a  full  flutter  analysis.  For  the  moderate  amplitude  of 


oscillation  of  Al=4°,  both  the  Runge-Kutta  and  non-constant  analyses 
indicate  a  decrease  in  mean  force  coefficient  as  reduced  frequency 
increases  (of  about  20%  from  k=.10  to  k=,25),  while  the  constant 
coefficient  analysis  shows  no  change.  This  is  because  the  constant 
coefficient  analysis  has  no  coupling  between  the  harmonics  and  the 
mean,  so  the  mean  value  remains  unchanged  as  long  as  the  oscilla¬ 
tion  amplitude,  Al,  remains  unchanged.  While  the  non-constant 
analysis  doesn’t  exactly  match  the  exact  Runge-Kutta  analysis,  and 
drops  more  quickly  with  reduced  frequency,  the  values  are  within 
10%  error  relative  to  the  Runge-Kutta  analysis. 

The  in-phase,  sine  components  follow  the  same  trend  for  the 
Runge-Kutta  and  non-constant  analyses  and  are  relatively  close  in 
magnitude  —  there  is  a  slight  drop  in  sine  values  from  ks.lO  to  k=.lS 
then  an  approximate  doubling  from  ks.15  to  k-.2S.  The  Runge-Kutta 
and  non-constant  analyses  are  within  35%  of  one  another  for  the  sine 
components.  However,  the  constant  coefficient  analysis  rises  contin¬ 
uously  from  k=.10  to  k=.15  to  k~.25.  It  would  be  expected  that  the 
sine  values  would  be  fairly  close  for  all  analyses,  since  the  in-phase 
component  is  governed  principally  by  the  linear  static  slope. 

The  out-of-phase,  cosine  components  match  well  for  the  Runge- 
Kutta  and  non-constant  analyses  (within  25%  of  one  another),  show¬ 
ing  an  increasing  trend  with  reduced  frequency,  while  again  the 
slope  for  the  non-constant  analysis  is  greater  than  that  for  the 
Runge-Kutta  analysis.  However,  the  constant  coefficient  analysis 
shows  a  different  trend,  namely  a  slight  rise  from  k=:.10  to  k=.15 
then  a  large  drop  of  approximately  25%  at  k=.25  —  this  has  serious 
repercussions  for  a  flutter  analysis  since  the  out-of-phase  term  is  an 


important  indication  of  the  work  being  performed  by  the  fluid  flow. 
This  2-dimensional  aerodynamic  analysis  indicates  that  the  constant 
coefficient  analysis  is  probably  inappropriate  for  producing  accurate 
flutter  results. 

Fig.  19  shows  that  the  non-constant  coefficient  analysis  breaks 
down  for  very  large  amplitudes  of  oscillation,  in  this  case  Al=10°.  In 
general,  the  non-constant  coefficient  analysis  is  only  valid  to  ampli¬ 
tudes  of  oscillation  in  the  range  of  5°  or  6°.  Table  3  shows  that  the 
mean  and  sine  components  are  still  moderately  close  for  the  Runge- 
Kutta  and  non-constant  analyses  (within  10-20%  of  one  another), 
however  the  out-of-phase  cosine  component  —  while  still  exhibiting 
the  same  increasing  trend  for  both  methods —  remains  about  300%  off 
for  all  values  of  reduced  frequency.  This  is  another  indication  that 
even  when  only  considering  the  first  harmonics,  the  harmonic  anal¬ 
ysis  begins  to  break  down  for  large  amplitudes  of  oscillation.  Again, 
the  constant  coefficient  analysis  indicates  an  unchanging  mean  value 
(since  there  is  no  nonlinear  coupling  between  the  harmonics),  while 
the  sine  and  cosine  components  are  even  further  off  the  mark  at 
A  1  =  10°  than  for  the  moderate  amplitude  of  Al=4°. 

At  first  glance,  from  looking  at  the  values  for  k=.10  and  k=.15, 
one  might  conclude  that  the  mean  values  decrease  as  amplitude  of 
oscillation  increases,  but  this  is  not  the  case.  Instead,  the  trend 
changes  with  increasing  amplitude  of  oscillation  —  that  is,  the  mean 
decreases  for  increasing  reduced  frequency  at  A  1=4°,  but  the  mean 
increases  for  increasing  reduced  frequency  at  Al=10°.  So,  for 
increasing  amplitude  of  oscillation,  the  mean  drops  at  low  reduced 
frequencies  and  rises  at  high  reduced  frequencies,  and  there  is  some 


point  between  k=.15  and  k=.25  for  which  it  does  not  change  at  all.  A 
similar  change  is  also  noticed  for  the  sine  component  —  the  sine  com¬ 
ponent  generally  increases  for  increasing  reduced  frequency  at 
A  1=4°,  but  the  sine  component  decreases  for  increasing  reduced  fre¬ 
quency  at  Al  =  10°.  It  is  difficult  to  attribute  physical  interpretations 
to  these  trends  because  of  the  high  nonlinearity  of  the  formulation. 

Overall,  with  the  two  harmonics  also  taken  into  consideration, 
the  analytic  hysteresis  loops  look  odd  at  an  oscillation  amplitude  of 
A  1  =  10°  in  Fig.  19.  The  loops  appear  to  not  have  enough  stall  delay, 
drop  too  low  and  too  quickly  into  stall  after  the  stall  delay,  and 
return  too  suddenly  from  nonlinear  stall  to  linear  behavior  in  return¬ 
ing  below  the  stall  angle.  This  odd  behavior  is  likely  due  to  the  fact 
that  the  fixed-time  stall  delay.  At,  has  been  smeared  over  the  entire 
cycle,  making  the  apparent  delays  within  specific  portions  of  the  loop 
seem  incorrect. 

Fig.  20  is  an  example  of  experimental  data  from  Ref.  5.  While 
this  data  docs  not  match  the  analysis  —  5x10^  Reynolds  number  as 
compared  to  2x10^  for  the  analysis  in  Figs.  18  &  19  —  it  is  worthy  to 
note  that  the  trends  in  the  experiment  are  similar  to  that  of  the 
analysis  at  moderate  amplitudes  of  oscillation.  The  two  harmonic 
Fourier  components  of  the  data  are  also  presented  in  Fig.  20. 

It  was  also  attempted  to  compare  the  analysis  against  results 
produced  by  the  Upwind  Approximate  Factorization  Navier-Stokes 
(UPWAFNS,  a.k.a,  CFL2D)  computational  fluid  dynamics  code 
[Ref.  30].  However,  because  of  the  large  amplitudes  being  consid¬ 
ered  here,  the  CFD  analysis  proved  to  be  unsuccessful  in  satisfactorily 
reproducing  the  experimental  results  of  Ref.  5  presented  in  Fig.  18. 
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Table  3.  1st  harmonic  components  of  2>dimensional 
aerodynamic  analysis 
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Fig.  18  2>dimensional  lift  coefficient  hysteresis  loops, 
analysis  for  NACA  0012  airfoil,  Re=.2E6 
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Fig.  19  2*dimeiisional  lift  coefficient  hysteresis  loops, 
analysis  for  NACA  0012  airfoil,  Res.2E6 
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Fig.  20  2*diinensional  lift  coefficient  hysteresis  loops, 
experiment  for  NACA  0012  airfoil,  Re=.5E6 


5.2  Flutter  Analysis 


5.2.1  Linear  U-g  Analysis 

The  analytic  results  for  classical,  linear  divergence  are  pre¬ 
sented  in  Table  4  for  the  laminates  of  interest  using  the  three- 
dimensional,  linear  aerodynamics  described  in  Section  3.5.1.  The 
U-g  plots  from  which  these  values  are  generated,  using  three  bend¬ 
ing  mode  shapes  and  three  torsional  mode  shai^es,  are  shown  in  Figs. 
21  to  23.  As  expected,  the  [03/9015  wing  has  a  torsional  flutter 
velocity  very  near  its  divergence  velocity,  the  [+152/0215  wing  has  a 
torsional  flutter  velocity  just  above  that  of  the  [O3/9OI5  wing,  and  the 
[-I52/O2IS  wing  has  a  divergence  velocity  well  below  its  torsional 
flutter  velocity. 

For  the  [O3/9OI5  layup,  the  linear  flutter  velocity,  Vp,  is  approx¬ 
imately  equal  to  the  linear  divergence  velocity,  V^,  because  there  is 
no  bending-torsion  coupling  and  the  elastic  axis  is  at  the  midchord  — 
both  are  near  28  m/s  which  is  just  below  the  experimental  wind 
tunnel  limit.  The  flutter  frequency,  cop,  is  the  typical  coalescence  fre¬ 
quency  of  a  linear  flutter  analysis  and,  as  seen  from  the  U-g  plot  in 
Fig.  21,  results  from  the  drop  of  the  first  torsional  frequency  coj-^ 
from  24.6  Hz  to  11.9  Hz,  while  the  first  bending  frequency  (o,  g 
drops  from  4.3  Hz  to  0  Hz  (i.e.  divergence).  The  combination  of  the 
flutter  velocity  and  the  flutter  frequency  yield  a  reduced  frequency 
of  approximately  0.15,  indicating  that  any  nonlinear  analysis  applied 
at  this  point  is  within  the  valid  range  discussed  in  the  previous 
section.  The  divergence  velocity  is  in  fact  slightly  below  the  flutter 
velocity,  so  in  a  real  flutter  situation  one  would  expect  stalling  at  the 


point  of  flutter  initiation,  even  at  root  angle  of  attack  of  oij^  =  0°. 
However,  one  would  also  expect  this  stalling  to  be  light,  since  the 
nonlinear  effects  will  just  be  beginning  to  come  into  play  so  as  to 
hinder  the  exponential  growth  in  deflection  due  to  divergence.  It  is 
not  possible  to  predict  the  dependence  of  the  flutter  characteristics 
on  an  increasing  root  angle  of  attack  since  the  aerodynamics  are 
stalled,  and  hence  will  likely  affect  both  the  flutter  velocity  and  the 
flutter  frequency. 

For  the  [+I52/O2IS  layup  the  linear  divergence  velocity  is  much 
greater  than  the  linear  flutter  velocity  due  to  the  “negative”  bending- 
torsion  coupling  of  the  layup  —  that  is,  because  positive  bending 
induces  negative  twist.  As  noted  in  Section  5.1.2,  the  flutter  charac¬ 
teristics  have  more  to  do  with  the  natural  mode  shapes  than  the  nat¬ 
ural  frequencies,  since  the  natural  frequencies  remain  relatively 
unchanged  for  all  the  layups.  The  behavior  of  the  first  torsion  mode 
is  almost  identical  to  that  of  the  [Oj/POJg  layup:  as  shown  in  Fig.  22, 
the  first  torsion  frequency  0}|j  drops  from  23.5  Hz  to  11.6  Hz  by  the 
time  the  damping  ratio  crosses  the  zero  axis  at  26.9  m/s.  However, 
the  first  bending  frequency  continues  to  rise  from  3.9  Hz,  and  the 
damping  ratio  in  bending  continues  to  decrease,  never  crossing  the 
zero  axis.  However,  this  might  be  simply  due  to  the  fact  that  the  U-g 
analysis  has  not  been  carried  out  to  a  high  enough  velocity  —  there 
might  in  fact  be  a  velocity  high  enough  that  the  bending-torsion 
coupling  becomes  too  weak  to  counteract  the  positive  twist  created 
by  the  increasing  moment  induced  by  the  associated  increasing 
dynamic  pressure.  Therefore,  the  notation  of  in  Table  4  is  only 
meant  as  an  indication  that  the  divergence  velocity  might  be  very 


large,  and  is  certainly  out  of  the  range  of  the  velocity  plotted  in 
Fig.  22  and  out  of  the  range  of  the  actual  wind  tunnel  experiment. 

In  a  real  flutter  situation  with  the  1+152/02  Is  layup,  stalling 
would  again  be  expected,  but  not  for  the  same  reason  as  divergence 
as  for  the  103/90]£  layup.  Instead,  it  would  be  expected  that  the 
amplitude  of  oscillation  would  grow  exponentially  until  it  reaches  the 
stalling  regime,  at  which  point  the  stalling  would  hinder  further 
growth  and  induce  limit  cycles.  Therefore,  certain  characteristics  can 
be  predicted  within  the  range  of  root  angle  of  attack  below  the 
static  stall  angle.  First,  it  can  be  expected  that  the  flutter  velocity 
and  frequency  will  remain  relatively  unchanged  since  the  flutter 
response  will  be  governed  by  linear  aerodynamics  (with  slight  cor¬ 
rections  to  rotate  the  aerodynamic  forces  through  into  the  local 
wing  coordinates),  and  the  nonlinear  aerodynamics  will  only  act  as  a 
limiting  factor.  It  is  in  this  limiting  factor  that  the  characteristics  will 
change  with  increasing  root  angle  of  attack;  as  increases,  smaller 
and  smaller  amplitudes  of  oscillation  will  be  required  to  reach  the 
stalling  regime  and  induce  limit  cycles.  Therefore,  as  the  root  angle 
of  attack  is  increased,  it  is  expected  that  the  flutter  velocity  and  fre¬ 
quency  will  remain  unchanged  while  the  amplitude  of  oscillation 
decreases.  This  trend  seems  counter-intuitive  at  first  —  one  gener¬ 
ally  expects  increasing  response  (whether  steady  deflection  or 
unsteady  oscillation)  with  increasing  load  due  to  an  increased  root 
angle  of  attack. 

For  the  (-I52/O2IS  layup  the  linear  divergence  velocity  is  much 
below  the  linear  flutter  velocity  because  of  the  ‘^positive’*  bending- 
torsion  coupling  —  that  is,  because  positive  bending  induces  positive 


twist.  In  a  general  physical  sense,  divergence  is  induced  because  an 
aerodynamic  load  causes  a  positive  twist,  which  induces  further 
aerodynamic  load,  which  causes  further  twist,  and  so  on,  in  a  cascad¬ 
ing  effect.  With  the  “positive”  bending-torsion  coupling,  the  increas¬ 
ing  aerodynamic  load  also  induces  an  increased  bending,  which  also 
induces  further  twist,  and  thus  “aggravates”  the  divergence  effect. 
That  is,  because  of  the  bending-torsion  coupling,  the  velocity  at 
which  this  effect  continues  to  cascade  (i.e.  grow  exponentially) 
instead  of  converging  to  a  steady  deflection  is  lower  than  for  a  layup 
with  no  bending-torsion  coupling,  such  as  the  [0j/90l5  layup.  The 
U-g  diagram  for  the  [-ISj/Ojls  layup,  shown  in  Fig.  23,  indicates  a 
different  behavior  for  the  torsional  mode  than  the  two  previously 
discussed  layups.  The  behavior  shows  no  sharp  rise  in  damping 
ratio,  and  no  sharp  drop  in  the  torsion  frequency  just  before  the 
onset  of  flutter  —  as  is  the  case  for  the  [03/90)5  and  [+1 52/02)5  layups 
in  Figs.  21  and  22  —  but  is  instead  more  gradual. 

In  a  real  aeroelastic  situation,  these  results  would  indicate  that 
the  wing  would  likely  experience  divergence,  whose  growth  would 
probably  be  limited  by  nonlinear  aerodynamic  effects.  Whether  such 
a  growth  would  trigger  any  kind  of  oscillatory  response  is  not  pre¬ 
dictable  by  the  U-g  analysis.  It  might  also  be  possible  to  achieve 
flutter  at  the  higher,  linear  flutter  velocity,  but  this  is  unlikely.  First, 
because  of  divergence,  the  wing  might  possibly  break  at  such  a  high 
velocity.  Second,  again  because  of  divergence,  at  the  higher,  linear 
flutter  velocity  the  aerodynamics  will  be  in  deep  stall,  and  will  be 
very  different  from  those  used  to  predict  the  linear  flutter  velocity 
in  the  first  place. 
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Therefore,  the  U-g  method  has  various  degrees  of  applicability 
in  predicting  flutter  characteristics  for  a  range  of  bending-torsion 
coupling.  For  the  [O^/QOJg  layup,  the  U-g  method  is  likely  to  accu¬ 
rately  predict  the  correct  flutter  velocity  and  frequency  at  root  angle 
of  attack  ocj^^O,  but  one  can  only  estimate  trends  for  increasing 
For  the  [+152/0215  layup,  the  U-g  method  will  accurately  predict  the 
flutter  velocity  and  frequency  characteristics  over  a  wide  range  of 
root  angles  of  attack  up  to  the  static  stall  angle,  although  it  can  only 
be  used  to  estimate  the  trend  in  limit  cycle  amplitudes  over  that 
range.  For  the  [-152/0215  layup,  the  U-g  method  will  likely  predict 
the  correct  onset  of  an  aerodynamic  instability  at  the  divergence 
velocity,  but  what  type  of  instability  —  whether  divergence  or 
oscillatory  —  is  uncertain.  As  with  the  [0^/901 5  layup,  it  is  difficult  to 
predict  the  behavior  for  increasing  root  angle  of  attack  a^. 
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Vq,  Divergence 
Velocity  (m/s) 

Vp,  Flutter 
Velocity  (m/s) 

(Dp,  Flutter  1 
Frequency  (Hz)  I 

[03/90]s 

28.20 

28.27 

11.86 

[+1  ^2/02^5 

00 

26.89 

11.64 

[-152/02]s 

18.04 

35.60 

13.34 
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Table  4.  Linear  divergence  and  Hutter  characteristics 
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Fig.  21  [03/90]e  U-g  diagram 
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Fig.  23  [‘ISJOih 


U-g  diagram 


The  experimental  and  analytic  flutter  boundaries  (i.e.  for  very 
small  amplitude  oscillation)  are  presented  in  Figs.  lo  26.  Each 
graph  demonstrates  some  of  the  expected  trends  for  each  of  the 
[03/9015,  [+152/0215,  and  [-I52/O2IS  layups  that  were  predicted  by 
the  U-g  analysis,  but  quantifies  these  trends  in  a  way  that  the  U-g 
analysis  could  not. 

Fig.  24  for  the  [O3/9OI5  laminate  starts  at  the  linear  flutter 
velocity  but  immediately  begins  to  exhibit  nonlinear  behavior 
because  the  linear  flutter  velocity  is  so  close  to  the  divergence  veloc¬ 
ity,  as  would  be  expected  from  the  U-g  analysis.  That  is,  the  diver¬ 
gence  and  exponential  growth  of  flutter  into  the  stalling  regime  only 
limit  the  growth  to  limit  cycles,  but  do  not  significantly  alter  the 
linear  results  that  could  be  derived  by  the  U-g  analysis,  otherwise 
the  nonlinear  results  would  be  further  from  the  linear  results  at  root 
angle  of  attack  0^=0°.  An  increase  in  the  root  angle  of  attack 
causes  the  flutter  velocity  to  drop  and  the  flutter  motion  to  become 
more  purely  torsional  (denoted  by  a  frequency  closer  to  the  first 
torsion  free  vibration  frequency  and  a  decrease  in  the  bending 
amplitude). 

For  values  of  the  root  angle  of  attack  up  to  the  static  stall  angle, 
this  behavior  is  governed  by  “light”  stalling,  i.e.  where  the  major 
portion  of  the  wing  is  oscillating  across  the  static  stall  angle,  back  and 
forth  between  the  stalled  and  unstalled  regions.  The  flutter  velocity 
drops  smoothly  and  slowly  as  the  root  angle  of  attack  increases,  by 
about  1  m/s  per  1°  increase  in  —  as  the  root  angle  of  attack 


increases,  the  distributed  load  consequently  increases,  and  the  wing 
would  twist  further  into  stall,  except  that  the  velocity  decreases  so  as 
to  decrease  the  dynamic  pressure,  thus  counteracting  the  positive 
twist,  and  keeps  the  wing  only  in  light  stalling.  Also,  as  the  flutter 
velocity  drops,  the  flutter  frequency  consequently  rises  toward  the 
first  torsional  natural  frequency  —  again,  because  the  stalling  effects 
only  induce  the  limit  cycles  and  do  not  strongly  affect  the  linear 
aerodynamics,  this  is  the  same  as  travelling  backward  along  first 
torsion  branch  of  the  frequency  plot  derived  by  the  U-g  analysis. 

After  the  root  angle  of  attack  reaches  the  static  stall  angle,  the 
flutter  behavior  begins  to  be  governed  by  “deep”  stall,  that  is,  the 
changes  in  characteristics  of  the  vortex  shedding  as  the  flow  gets 
pushed  further  in  the  stall  regime  —  characterized  mathematically  by 
the  parameters  a^,  r^,  and  Cj  in  equations  (3-94)  to  (3-96).  The 
flutter  velocity  continues  to  decrease  smoothly,  and  the  flutter  fre¬ 
quency  continues  to  increase  smoothly  toward  the  first  torsional  nat¬ 
ural  frequency,  indicating  a  strong  dependence  on  deep  stall  charac¬ 
teristics.  If  the  deep  stall  characteristics  were  in  fact  weak,  then  the 
flutter  velocity  and  flutter  frequency  would  show  little  change  past 
the  static  stall  angle  since  both  the  aerodynamic  linear  characteristics 
and  the  nonlinear  stalling  characteristics  would  change  very  little  (C|_ 
levels  off  past  stall,  while  continues  to  drop,  but  only  slowly  —  sec 
Appendix  C).  These  trends  indicate  that  in  designing  an  airfoil  for 
flutter  purposes,  it  might  be  desirable  to  do  so  such  that  the  deep 
stalling  characteristics  change  as  little  as  possible  from  the  light 
stalling  characteristics,  so  that  the  flutter  velocity  in  deep  stall 
remains  as  high  as  possible.  This  objective,  however,  might  not 


prove  possible  since,  as  noted  in  early  dynamic  stall  studies 
[Refs.  I'S],  the  characteristics  of  deep  stall  tend  to  be  independent  of 
airfoil  geometry. 

It  should  also  be  noted  that  experimentally,  at  root  angle  of 
attack  a^-l° ,  simultaneous  bending  and  torsion  flutter  were 
observed  at  the  divergence/flutter  speed  (although  only  the  experi¬ 
mental,  torsional  flutter  speed  is  plotted  on  Fig.  24).  The  wing 
would  “flap”  at  large  amplitudes  of  oscillation  in  bending  then, 
intermittently,  would  cease  flapping  and  instead  oscillate  in  a  tor¬ 
sional  manner.  This  observation  seems  to  indicate  the  strong  cou¬ 
pling  of  both  divergence  and  flutter  in  the  linear  regime. 

Fig.  25  for  the  [+152/O2IS  laminate  shows  a  more  extended 
range  of  linear  aerodynamic  behavior  as  would  be  expected  from  the 
linear  U-g  analysis  (because  the  divergence  velocity  is  very  high  and 
the  tip  twist  is  negative)  and  a  very  sharp  change  in  the  flutter 
behavior  once  it  goes  into  the  nonlinear  stall  region.  The  linear 
region  of  the  behavior  is  valid  up  until  the  root  angle  of  attack 
reaches  the  static  stall  angle.  This  behavior  is  because  of  the 
bending-torsion  coupling;  as  increases  the  distributed  load 

increases,  causing  increased  deflection,  and  thus  inducing  negative 
twist  which  counteracts  the  positive  twist  from  the  increased  dis¬ 
tributed  moment.  In  the  case  of  the  [+152/02]s  layup,  this  effect  is 
large  enough  so  as  to  actually  produce  a  negative  twist,  but  it  would 
be  possible  that  with  a  weaker  negative  bending-torsion  coupling  the 
effect  would  only  cause  a  small,  but  still  positive,  twist. 

The  analysis  shows  an  almost  linear  trend  up  to  the  static  stall 
angle  —  the  only  deviation  is  due  to  the  rotation  of  the  aerodynamic 


loads  from  the  free  stream  coordinates  into  the  rotated,  local  wing 
coordinates.  The  analysis  also  remains  almost  linear  for  a  short 
range  past  the  static  stall  angle,  up  to  about  aj^=13°  —  the  negative 
twist  keeps  the  majority  of  the  wing  unstalled  so  that  while  the  root 
of  the  wing  is  stalled,  it  has  little  effect  on  the  overall  aerodynamics 
governing  the  flutter  behavior. 

Once  past  the  linear  region,  the  flutter  behavior  goes  into  deep 
stall  very  quickly.  This  is  because  by  the  time  the  tip  finally  reaches 
stall,  the  root  must  already  be  in  deep  stall  because  of  the  negative 
twist.  As  the  root  angle  of  attack  is  then  further  increased,  the  twist 
remains  essentially  unchanged  —  since  the  force  coefficient  curves 
level  off,  no  more  distributed  aerodynamic  load  is  generated  —  so 
there  is  no  longer  any  increasing  negative  twist  to  counteract  the 
increasing  positive  angle  of  attack,  and  the  wing  quickly  goes  into 
deep  stall.  In  other  words,  the  transition  through  light  stall  is  unlike 
that  of  the  [03/90)3  layup,  and  is  very  short  and  very  sudden.  As  the 
light  stalling  characteristics  become  less  dominant  (eg.  for  an  airfoil 
geometry  for  which  r^  might  be  smaller),  it  would  be  expected  that 
this  quick  drop  would  become  even  more  sudden,  since  the  behavior 
would  lock  into  the  deep  stall  characteristics  more  quickly. 
Therefore,  a  wing  with  the  type  of  bending-torsion  coupling  as  the 
[+ 152/0213  layup  is  beneficial  in  terms  of  divergence,  but  the  drop  in 
flutter  velocity  due  to  stalling  might  prove  to  be  sudden  and  unex¬ 
pected.  For  example,  a  brief  change  in  perceived  angle  of  attack  of 
only  3°  —  eg.  from  a|^=14°  to  0^=17°  —  might  drop  the  flutter  veloc¬ 
ity  by  half  its  value,  while  such  a  small  change  in  angle  of  attack  for 


the  (03/90)5  layup  would  only  induce  a  moderate  change  in  flutter 
velocity. 

The  experimental  flutter  velocity  values  for  the  [+152/02)5 

layup  show  a  smoother  trend  from  linear  behavior  to  nonlinear, 
stalled  behavior  than  does  the  analytic  prediction.  Most  noticeably, 
the  experimental  flutter  velocities  drop  by  4  m/s  between  root 
angles  of  attack  ajj  =  l°  and  There  are  several  possible 

explanations  for  this  discrepancy.  First,  there  might  be  unmodeled 

structural  nonlinearities  that  are  unaccounted  for  in  the  current 

analysis.  The  experimental  drop  in  flutter  velocity  indicates  that 
there  might  be  an  additional  softening  trend  —  this  might  be 
accounted  for  by  additional  geometric  nonlinearities,  or  by  cubic 
stiffening.  However,  neither  of  these  possibilities  seems  likely  since 
the  inclusion  of  geometric  nonlinearities  did  not  produce  this  soften¬ 
ing  trend  in  the  linear  aerodynamic  region,  and  cubic  stiffening 
would  produce  a  hardening  effect  instead  of  a  softening  effect. 
Second,  the  aerodynamics  might  not  be  totally  linear  just  below  the 
static  stall  angle.  In  fact,  some  previous  investigations  use  a 
parabolic  drop  just  before  the  static  stall  angle  (see  Appendix  C), 
while  the  current  investigation  overpredicts  the  lift  coefficient  near 
the  static  stall  angle.  This  consideration  would  have  the  same  effect 
as  the  light  stalling  for  the  [03/90)5  layup,  and  would  more  smoothly 
decrease  the  flutter  velocity.  This  is  likely  to  account  for  a  large  part 
of  the  discrepancy,  but  would  make  the  analysis  more  difficult  since 
it  would  require  more  describing  regions  and  higher  order  approxi¬ 
mations  than  the  current  analysis.  Third,  3-dimensional  spanwise 
aerodynamics  effects  might  also  affect  the  flutter  calculation.  While 


the  spanwise  drop  used  to  taper  the  aerodynamic  load  as  it  reaches 
the  tip  (see  Appendix  C)  is  fairly  accurate  for  no  twist,  it  tends  to  be 
less  accurate  for  either  negative  or  positive  twist  (see  Landsberger 
[Ref.  92]  for  comparison  of  currently  used  strip  theory  against 
3 -dimensional  lifting  line  theory).  This  effect  might  also  account  for 
some  of  the  discrepancy,  though  probably  very  little  since  the  linear 
coefficients  of  the  approximated  Theodorsen  function  still  remain 
unchanged  at  each  spanwise  location. 

The  discrepancy  in  frequency  in  Fig.  25  is  easier  to  account  for. 
First,  it  is  difficult  to  begin  with  to  accurately  get  the  flutter  fre¬ 
quency  for  frequency  coalescence.  As  can  be  seen  in  Fig.  22,  the 
flutter  frequency  changes  very  quickly  in  the  range  of  the  flutter 
velocity,  so  that  any  slight  structural  damping,  which  might  move  the 
zero  axis  of  the  damping  coefficient  and  hence  slightly  alter  the  flut¬ 
ter  velocity,  will  consequently  strongly  affect  the  flutter  frequency. 
Second,  the  first  bending  and  first  torsion  free  vibration  frequencies 
of  the  [+152/0215  (as  listed  in  Table  2)  are  in  the  range  of  1  Hz  off  in 
comparing  experiment  to  analysis,  so  it  can  only  be  expected  for  a 
frequency  coalescence  phenomenon  that  the  results  will  show  error 
in  the  same  order  of  magnitude. 

Fig.  26  for  the  [-132/0215  laminate  indicates  a  much  different 
trend  where  the  flutter  is  characterized  by  a  low,  first-bending  fre¬ 
quency  and  immediate  nonlinear,  bending  stall  flutter  in  the  range  of 
the  divergence  velocity  —  there  is  no  portion  of  the  flutter  graph 
here  which  could  have  been  predicted  by  a  linear  analysis.  As  with 
the  [03/90)5  layup,  the  behavior  seems  to  be  governed  by  light  stall 
dynamics  for  a  root  angle  of  attack  up  to  the  static  stall  angle.  That 


is,  the  flutter  behavior  is  triggered  only  at  the  very  onset  of  diver¬ 
gence,  where  the  major  part  of  the  wing  is  just  starting  to  straddle 
the  static  stall  angle,  instead  of  at  a  higher  velocity,  where  the  wing 
would  be  twisted  even  further  into  stall  because  of  divergence. 
Again,  as  with  the  [03/90)3  layup,  an  increase  in  the  root  angle  of 
attack  induces  a  smooth  decrease  in  the  flutter  velocity  of  just  less 
than  1  m/s  per  1°  increase  in  as  if  to  keep  the  governing  behav¬ 

ior  just  bordering  the  stall  regime,  neither  fully  entering  either  the 
fully  linear  or  the  fully  nonlinear,  stalled  regions.  The  analytic 
behavior  past  a  root  angle  of  attack  equal  to  the  static  stall  angle,  i.e. 
in  deep  stall,  also  follows  the  same  trend  in  flutter  velocity  as  the 
[O3/9OI3  layup,  namely  that  the  deep  stall  characteristics  are  strong 
enough  so  that  the  flutter  velocity  continues  to  decrease  at  approxi¬ 
mately  the  same  rate  as  for  light  stall.  The  experimental  behavior 
for  the  [*152/02)5  layup  is  very  different  in  deep  stall  than  for  the 
[03/90)3  layup  —  perhaps,  unlike  the  [03/90)3  layup,  the  aerodynam¬ 
ics  do  level  off,  and  the  flutter  velocity  remains  relatively 
unchanged.  However,  the  deep  stall  data  is  represented  by  only  one 
data  point  at  aj(=15°,  so  it  is  uncertain  whether  the  discrepancy  is 
due  to  spurious  experimental  data  or  poor  analysis. 

The  trend  in  flutter  frequency  for  the  [*152/0215  layup  differs 
quite  mailcedly  from  that  of  the  [03/90)5  layup.  Instead  of  starting 
at  the  linear  frequency  coalescence  value,  it  starts  at  just  below 
2  Ha,  that  is  somewhere  between  0  Hz  and  the  first  bending  natural 
frequency  of  4.0  Hz.  The  effect  is  likely  analogous  to  that  of  the 
[03/90)3  layup:  the  nonlinear  stalling  features  do  not  play  a  signifi 
cant  role  in  changing  the  Mnear  aerodynamics,  but  instead  govern  the 
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limit  cycles  and  hence  determine  at  which  point  on  the  U-g  diagram 
the  solution  shifts  in  accordance  with  an  increasing  root  angle  of 
attack.  So,  near  the  divergence  velocity,  the  flutter  behavior  is  gov¬ 
erned  by  the  first  bending  mode  (which  has  the  lowest  associated 
damping  ratio  as  seen  in  Fig.  23)  and  as  the  root  angle  of  attack  is 
increased,  thus  decreasing  the  flutter  velocity,  the  flutter  frequency 
consequently  increases  toward  the  first  bending  natural  frequency, 
as  if  following  the  first  bending  branch  of  the  frequency  plot  for  the 
U-g  analysis.  The  only  portion  of  Fig.  26  that  could  directly  have 
been  predicted  by  the  U-g  analysis  is  the  velocity  at  which  the 
aeroelastic  instability  first  occurs.  The  U-g  analysis  would  have 
predicted  divergence,  but  could  not  have  predicted  the  possible  oscil¬ 
latory  nature  of  the  instability,  its  frequency,  or  the  ensuing  trend 
with  increasing  root  angle  of  attack  —  these  would  require  the  non¬ 
linear,  stalled  analysis. 

Ail  three  figures  indicate  that  as  the  root  angle  of  attack  oii^  is 
increased,  the  flutter  velocity  —  whether  bending  or  torsional  — 
decreases,  and  the  flutter  frequency  tends  toward  the  associated 
linear,  natural  frequency.  The  parameter  of  bending-torsion  cou¬ 
pling  determines  whether  the  flutter  frequency  will  start  as  coales¬ 
cence  of  the  torsion  with  the  bending  mode,  or  will  start  near  the 
first  bending  frequency,  and  whether  the  decrease  in  flutter  velocity 
with  root  angle  of  attack  will  be  smooth  or  sudden.  The  previous 
study  [Refs.  94  and  95]  was  unable  to  experimentally  investigate 
the  phenomenon  of  sudden  transition  from  linear  flutter  to  non¬ 
linear,  stalled  flutter  because  of  the  velocity  limitations  of  the  wind 
tunnel. 
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Fig.  24  [03/90]^  flutter  boundary  and  frequency  variation 


5.2.3  Large-Amplitude.  Nonlinear  Flutter 

The  experimental  and  analytic  flutter  characteristics  for 
increasing  amplitudes  of  oscillation  are  presented  in  Figs.  27  to  32. 
The  pairs  of  figures  (Figs.  27  and  28  for  the  [03/9015  layup;  Figs.  29 
and  30  for  the  [+152/0215  layup;  and  Figs.  31  and  32  for  the 
[-I52/O2IS  layup)  contain  (a)  the  graphs  of  the  time-averaged  mid¬ 
chord  tip  deflection  and  of  the  time-averaged  total  tip  angle  (the  sum 
of  the  root  angle  of  attack  and  the  tip  twist),  and  (b)  the  graphs  of 
the  midchord  tip  deflection  amplitude  of  oscillation  and  of  the  tip 
twist  amplitude  of  oscillation,  all  for  increasing  velocity  with  constant 
root  angle  of  attack  (aj^=l°,  5°,  10°,  and  15°).  For  each  line  of  con¬ 
stant  root  angle  of  attack  both  the  full,  unsteady  flutter  analysis 
(dashed  lines  on  Figs.  27,  29,  &  31;  solid  lines  on  Figs.  28,  30,  &  32) 
and  the  steady,  static  analysis  (unsteady  terms  suppressed)  (solid 
lines  on  Figs.  27,  29,  &  31)  are  presented,  so  as  to  show  where  the 
two  meet  (equivalent  to  the  flutter  boundary).  Likewise,  both  the 
steady,  static  experimental  data  and  the  unsteady,  flutter  experi¬ 
mental  data  are  presented.  This  experimental  data  is  gathered  from 
two  sources:  video  recordings  of  tip  deflections  (hollow  symbols)  and 
converted  strain  gauge  readings  (solid  symbols).  (The  root  strain 
gauge  hfdttfng  and  torsion  readings  were  converted  to  approximate 
tip  deflections  by  assuming  the  same  shape  for  the  spanwise  dis¬ 
tributed  load  as  described  in  Appendix  C). 

Note  that  the  analysis  has  been  conducted  without  including 
fore-&-aft  modes,  only  bending  and  torsion  modes.  This  is  because, 
as  noted  in  previous  sections,  these  modes  have  little  effect  on  the 
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frequency  and  mode  shape  of  the  first  torsional  mode,  which  is  the 
the  dominant  torsional  mode  in  both  linear  and  stalled  flutter  of  the 
[03/9015  and  [+152/0215  layups,  and  has  no  effect  on  the  first  bending 
mode,  which  is  the  dominant  mode  for  the  [*lS2^^2ls 

Graphs  in  Fig.  27  for  the  [O3/9OI5  laminate  show  the  same 
trends  in  analysis:  both  the  midchord  tip  deflection  and  total  tip 
angle  show  a  sharp  decrease  when  the  velocity  is  increased  past  the 
flutter  boundary.  These  analytic  trends  compare  favorably  for  root 
angles  of  attack  &  5°,  but  less  well  for  aj^=10°  &  15°. 

The  averaged  tip  deflections  for  the  [O3/9OI5  layup  show  the 
typical  characteristics  of  divergence.  For  low  root  angles  of  attack, 
the  tip  deflection  remains  relatively  small  just  up  until  the  point 
where  the  divergence  speed  is  reached.  If  in  fact  the  root  angle  of 
attack  were  a|(=0°,  then  the  deflection  would  remain  zero  until  the 
divergence  speed,  then  would  “jump”  to  an  asymptotic  stalled  behav¬ 
ior  [Ref.  94].  For  higher  root  angles  of  attack  above  the  static  stall 
angle,  eg.  a{(=10°  &  15°,  the  tip  deflection  variations  are  almost 
identical  —  since  the  entire  wing  is  past  stall,  the  distributed  load 
remains  the  same  irrespective  of  the  root  angle  of  attack,  and  conse¬ 
quently  the  bending  deflection  is  identical  and  only  dependent  on 
the  increasing  dynamic  pressure. 

The  experimental  values  show  identical  trends  as  the  analysis, 
although  shifted  slightly.  At  worst  (i.e.  at  divergence/flutter  for 
0^=1°  or  5°)  they  are  5-7  cm  lower  than  the  analytic  predictions  of 
20-25  cm;  near  moderate  deflections  of  approximately  10  cm  the 
experimental  values  are  1-2  cm  below  the  analysis.  Since  the 
behavior  is  highly  nonlinear  and  involves  rapid  changes  in  deflec- 
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tions,  these  discrepancies  between  experiment  and  analysis  seem 
within  reason.  However,  the  discrepancy  between  experimental 
values  for  aj^=10°  and  aj^=l5°  indicate  that  the  assumption  of 
unchanging  static  aerodynamic  characteristics  past  stall  is  slightly 
inaccurate  —  since  the  experimental  deflections  for  the  higher  root 
angle  of  attack  are  in  fact  larger,  it  can  be  deduced  that  the  aerody¬ 
namic  coefficients  do  not  in  fact  level  off,  but  continue  to  rise 
slightly.  The  trends  in  averaged  total  tip  angle  for  the  [03/90]^  layup 
are  essentially  the  same  as  for  the  averaged  tip  deflection,  since  the 
two  are  in  fact  coupled  in  producing  the  divergence  phenomenon,  but 
the  correlation  between  analysis  and  experiment  happens  to  be 
much  closer. 

The  analysis  in  Fig.  27  predicts  a  sharp  drop  in  both  tip 
deflection  and  tip  angle  for  ccj^sl^  Sc  5^  as  the  amplitude  of  oscillation 
increases  past  the  flutter  boundary.  The  drop  in  deflections  is  likely 
due  to  the  dependence  of  mean  load  on  amplitude  of  oscillation  at 
low  reduced  frequency,  as  described  in  Section  5.1.4  for  the  2D 

aerodynamic  analysis.  The  reason  the  drop  is  so  sudden  is  because, 
as  noted  in  Section  5.2.2  for  the  flutter  boundaries,  when  the  root 

angle  of  attack  is  below  the  static  stall  angle  the  behavior  is  still 

essentially  governed  by  the  linear  aerodynamics,  so  the  oscillation 
growth  ir  still  essentially  exponential  up  until  deep  stall  is  reached. 
Therefore,  it  would  be  expected  that  a  small  change  in  velocity  would 
produce  a  large  increase  in  amplitude  of  oscillation.  This  prediction 
matches  the  experiment  fairly  well  for  &  5°  in  both  Figs.  27 

and  28.  As  the  oscillation  growth  then  continues  within  the  deep 

stall  region,  the  intuitive  physical  sense  is  that  a  hardening  trend  will 


occur  —  that  is,  larger  and  larger  velocities  will  be  required  to  create 
larger  amplitudes  of  oscillation.  This  assumption  is  borne  out  by  the 
experiment,  especially  clear  in  the  tip  angle  oscillation  graph  in 
Fig.  28,  but  is  not  well  predicted  by  the  analysis.  Instead,  the  anal¬ 
ysis  shows  hardening  with  a  softening  trend,  that  is,  the  increase  in 
velocity  required  to  produce  the  same  increase  in  amplitude  of  oscil¬ 
lation  progressively  gets  smaller  and  smaller.  This  is  likely  due  to 
the  poor  prediction  of  the  out-of-phase  terms  of  the  nonlinear  aero¬ 
dynamics  at  higher  amplitudes  of  oscillation,  as  discussed  in 
Section  5,1.4.  The  oscillation  amplitude  in  bending  in  Fig.  28  indi¬ 
cates,  as  expected,  that  the  nonlinear  flutter  phenomenon  is  single 
degree  of  freedom  in  torsion. 

The  characteristics  of  oscillation  for  the  [03/9015 
aj^=10°  and  0^=15°  are  essentially  the  same  as  for  the  low  root 
angles  of  attack  of  0^=1°  and  aR=5°,  except  that  there  is  no  sudden 
change  through  light  stall  to  deep  stall  because  the  wings  are  already 
in  deep  stall  from  the  root  angle  of  attack.  This  means  that  the 
change  in  mean  deflections  is  less  pronounced  than  for  0^-1°  &  5°, 
but  still  follows  the  trend  of  decreasing  with  increased  amplitude  of 
oscillation,  again  because  of  the  same  nonlinear  aerodynamic  effects. 
For  example,  at  Or=1°  an  increase  in  velocity  from  27  m/s  to 
28  m/s  produces  a  9°  drop  in  twist,  while  at  aj^=10°  an  increase  in 
velocity  from  17  m/s  to  22  m/s  is  required  to  produce  the  same 
drop.  This  tends  not  to  match  the  tip  deflection  experimental  data, 
which  continues  to  increase,  while  the  tip  angle  experimental  data 
shows  different  trends  for  the  video  and  strain  gauge  data. 
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The  discrepancy  in  tip  deflection  indicates  that  there  should  be 
an  increase  in  aerodynamic  loading  with  oscillation  amplitude  in 
deep  stall,  while  the  trend  might  be  the  opposite  in  light  stall.  This 
discrepancy  indicates  a  deficiency  in  the  aerodynamic  model  that 
might  be  attributed  to  the  “smearing”  of  the  fixed-time  stall  delay. 
That  is,  it  is  convenient  to  smear  the  fixed-time  stall  delay  over  the 
hysteresis  loop  when  the  oscillation  straddles  the  stall  angle  (i.e.  light 
stalling),  but  it  is  probably  inappropriate  to  do  so  when  the  entire 
hysteresis  is  above  the  stall  angle  and  there  is  in  fact  no  fixed-time 
stall  delay  (i.e.  deep  stall).  The  discrepancy  in  experimental  data 
between  video  data  and  strain  gauge  data  indicates  that  the  assump¬ 
tion  in  converting  the  strain  gauge  data  to  tip  angle  is  probably  no 
longer  valid  —  there  are  likely  higher  modes  that  are  starting  to  come 
into  play  for  aj^=10°  &  15°  that  drastically  alter  the  root  curvatures. 
A  better  method  of  comparison  would  to  compare  the  experimental 
strain  readings  against  the  predicted  values  derived  from  the  root 
curvatures  of  the  mode  shapes. 

Again,  the  experimental  trends  for  aj^=10°  &  15°  for  the 
[03/90)5  layup  follow  physical  intuition:  they  are  already  in  deep 
stall  so  a  hardening  effect  is  observed  such  that  greater  and  greater 
velocity  is  required  to  produce  larger  amplitudes  of  oscillation. 
Again,  as  with  the  low  root  angles  of  attack,  the  analysis  predicts  the 
initial  growth  fairly  well  but  breaks  down  as  the  amplitude  of  oscil¬ 
lation  grows  from  moderate  to  large,  showing  an  analytic  softening 
trend  counter  to  the  experimental  hardening  trend.  And  again,  as 
with  the  low  root  angles  of  attack,  the  small  bending  oscillation 


amplitudes  indicate  a  single  degree  of  freedom  phenomenon  in 
torsion. 

Fig.  29  for  the  [+152/0215  layup  shows  the  characteristics  typi¬ 
cal  of  negative  bending-torsion  coupling.  Increasing  velocity  induces 
increased  negative  twist,  as  exemplified  in  the  tip  angle  plot,  thus 
precluding  any  sharp  rise  in  tip  deflection,  as  seen  in  the  tip  deflec¬ 
tion  plot.  Even  up  to  a  root  angle  of  attack  of  aj^=lS°,  the  flutter  ini¬ 
tiation  is  essentially  governed  by  linear  aerodynamics.  Therefore, 
the  oscillation  growth  is  nearly  exponential,  until  it  is  checked  by  the 
stalled  aerodynamics. 

This  exponential  growth  behavior  is  most  clear  on  the  tip  angle 
oscillation  amplitude  graph  of  Fig.  30,  in  which  the  oscillation  ampli¬ 
tudes  continue  to  increase  at  the  same  velocity  until  deep  stall  has 
been  reached.  The  corresponding  points  on  the  averaged  deflection 
plots  of  Fig.  29  are  harder  to  identify  —  remembering  that  the 
velocity  remains  unchanged  during  the  exponential  growth,  it  then 
becomes  clear  that  the  tip  deflections  are  also  remaining  unchanged, 
even  as  the  oscillation  amplitudes  pass  through  light  stall  on  the  way 
to  limit  cycles  at  deep  stall. 

Once  deep  stall  is  reached,  an  analytic  softening  trend  in  the 
flutter  characteristics  is  predicted  —  that  is,  once  past  the  flutter 
boundary,  the  analysis  predicts  that  a  decrease  in  velocity  will 
induce  a  jump  to  a  larger  flutter  amplitude.  This  is  a  characteristic 
also  observed  in  Refs.  94  and  95  for  analysis  with  constant  coeffi¬ 
cients  and  is  likely  unfounded  (and  could  not  be  reproduced  experi¬ 
mentally),  but  might  again  be  due  to  the  breakdown  of  the 
2-dimensional  aerodynamic  analysis  at  large  amplitudes  of  oscilla- 
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tion.  Also,  as  seen  in  Fig.  29,  the  flutter  velocities  for  the  [+152/02)5 
layup  arc  very  high,  thus  inducing  large  tip  deflections.  It  is  there¬ 
fore  likely  that  at  high  amplitudes  of  oscillation  the  governing  effects 
are  the  nonlinear  structural  effects,  not  the  nonlinear  aerodynamic 
effects,  and  hardening  effects  will  be  observed  such  as  those  for 
cubic  stiffening  in  Refs.  94  and  95. 

The  experimental  trends  for  the  [+152/02)5  layup  for  increasing 
amplitudes  of  oscillation  again  show  hardening  effects,  as  would  be 
expected  from  physical  intuition.  However,  as  seen  in  the  graph  for 
amplitude  of  oscillation  in  torsion,  these  hardening  effects  start  to 
become  noticeable  even  before  the  oscillation  amplitudes  reach  the 
static  stall  angle.  This  might  also  be  a  consequence  of  the  inaccurate 
static  aerodynamic  modeling  below  the  stall  angle,  where  in  fact 
there  is  something  like  a  parabolic  drop  before  stall  instead  of  a  con¬ 
tinuous  linear  rise.  This  would  mean  that  the  stalling  effects  would 
start  to  play  a  role  in  limiting  the  exponential  growth  even  before 
the  static  stall  angle  were  exceeded 

Fig.  31  for  the  [-152/02)5  layup  shows  a  more  gentle  deviation 
from  the  steady  analysis,  as  compared  to  the  sharp  change  in  charac¬ 
ter  demonstrated  by  the  [03/90)5  layup  in  Fig.  27.  The  experiment 
and  analysis  indicate  that,  contrary  to  the  [03/90)5  laminate,  both  the 
tip  deflection  and  tip  angle  continue  to  increase  once  the  velocity  is 
increased  past  the  flutter  boundary.  Essentially,  however,  the  flutter 
characteristics  are  not  unlike  those  of  the  [03/90)5  layup.  As  with 
the  [03/90)5  layup,  the  steady  characteristics  of  the  [-152/02)5  layup 
are  principally  governed  by  divergence  phenomenon.  The  flutter  at 
low  root  angles  of  attack  is  triggered  by  the  transition  into  light  stall. 


Unlike  the  [03/90]^  layup,  however,  it  is  difficult  to  compare  how 
well  the  analysis  compares  against  experiment  for  the  averaged 
deflections  past  flutter  initiation,  since  it  is  difficult  to  tell  how  much 
the  decrease  in  load  with  increasing  amplitude  of  oscillation  is  coun¬ 
teracted  by  the  increase  in  deflection  from  increasing  velocity.  All 
that  can  be  concluded  from  Fig.  31  is  that  the  deflections  generally 
continue  to  increase  past  the  flutter  boundary,  both  analytically  and 
experimentally,  thus  indicating  that  for  the  [- 152/0215  layup  the 
divergence  effects  tend  to  overpower  the  nonlinear  coupling  between 
oscillation  and  mean  aerodynamic  load. 

Fig.  32  for  the  [-152/0215.  showing  the  amplitude  of  oscillation 
of  the  bending  and  torsion  components,  displays  a  much  higher 
bending  component,  as  would  be  expected  for  this  predominantly 
bending  stall  flutter.  In  contrast  to  the  [O3/9OI5  and  [+152/O2I5 
layups,  the  analysis  shows  more  hardening  than  the  experimental 
trends  —  that  is,  the  bending  oscillation  amplitudes  grow  very 
quickly  from  just  a  small  increase  in  velocity,  while  the  analysis 
would  predict  that  a  larger  increase  in  velocity  would  be  required. 
This  discrepancy  might  be  due  to  two  possible  effects.  First,  the 
dependence  of  the  nonlinear  aerodynamics  on  the  difference 
between  perceived  angle  of  attack  due  to  pitch  (6)  and  due  to  plunge 
rate  (^/U)  might  not  be  accurately  modeled,  despite  the  physical 
arguments  presented  in  previous  investigations  [Refs.  55  &  56). 
Second,  while  the  geometric  noniinearities  have  been  taken  into 
account  for  large  mean  deflections,  the  current  analysis  does  not  take 
into  account  large  amplitudes  of  oscillation  of  the  deflections,  only 
small  amplitudes  of  oscillation  around  a  large  deflected  mean.  These 


two  effects  might  combine  so  as  to  account  for  the  difference  in  soft¬ 
ening  between  the  experimental  and  analytic  values.  Again,  as  with 
the  previous  layups,  large  amplitudes  of  oscillation  tend  to  produce  a 
lessening  of  the  hardening  in  the  analysis  (i.e.  the  hardening  with 
velocity  is  smaller  at  large  amplitudes  of  oscillation  than  at  small 
amplitudes  of  oscillation)  that  is  not  at  all  evident  experimentally. 
Also,  as  noted  for  the  flutter  boundary  analysis,  the  values  at  root 
angle  of  attack  a|^=15°  are  likely  so  disparate  because  of  large  exper¬ 
imental  errors. 
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Chapter  VI 

Conclusions  &  Recommendations 


An  analytic  method  has  been  developed  to  include  nonlinear 
structural  and  nonlinear  aerodynamic  effects  into  a  full, 
3-dimensional,  aeroelastic  problem,  using  the  mathematical  tools  of 
Fourier  analysis,  harmonic  balance,  and  the  Newton-Raphson  method 
as  a  numerical  solver.  The  method  makes  use  of  the  geometrically 
nonlinear,  Hodges  &  Dowell  structural  model,  based  on  a  second- 
order  ordering  scheme,  together  with  the  ONERA  stall  flutter  model 
for  the  aerodynamics.  Although  in  the  current  investigation  the 
method  is  used  with  many  simplifications  —  for  example  in  the  sim¬ 
plification  of  the  aerodynamic  force  curves,  in  the  semi-empirical 
nature  of  the  aerodynamic  model,  and  in  the  low  number  of  harmon¬ 
ics  used  in  the  harmonic  balance  method  —  the  formulation  can  be 
extended  to  implement  more  complex  variations  of  these  factors. 
The  current  analysis  extends  on  previous  work  by  more  thoroughly 
investigating  the  effects  of  nonlinear,  large  amplitude  deflections, 
and  by  more  accurately  modeling  the  nonlinear  aerodynamics  of  the 
ONERA  model  within  the  context  of  a  harmonic  balance  scheme. 

As  shown  in  Chapter  5,  the  current  nonlinear  aeroelastic  anal¬ 
ysis  predicts  well  almost  ail  the  observed,  experimental,  nonlinear 
stall  phenomena.  Specifically,  flutter  boundaries  have  been  obtained 
which  decrease  with  root  angle  of  attack,  limit  cycle  amplitudes  at 
flutter  have  been  obtained,  and  the  transitions  from  linear,  bending- 
torsion  flutter  to  torsional  stall  flutter,  and  from  linear  divergence  to 
bending  stall  flutter,  have  been  predicted  analytically.  In  addition. 


within  the  range  of  the  valid  amplitudes  of  oscillation  for  the  ONERA 
model,  the  analysis  correctly  predicts  the  experimental  hardening 
trend  as  amplitude  of  oscillation  increases. 

6.1  Aerodynamic  Model 

The  current  investigation  has  contributed  a  unique  approach  to 
the  application  of  the  ONERA  model  to  stall  flutter  analyses  and  has 
many  advantages.  First  and  foremost,  by  the  use  of  the  ONERA 
model,  the  method  is  in  such  a  form  that  it  is  generalizable  for  a  wide 
range  of  parameters  —  such  as  airfoil  type  and  Reynolds  number,  as 
long  as  the  aerodynamic  characteristics  of  the  airfoil  are  available  — 
and  thus  relieves  some  of  the  cumbersomeness  inherent  in  purely 
theoretical  models.  Second,  by  the  application  of  harmonic  balance 
and  Rayleigh-Ritz  to  the  ONERA  model,  the  method  is  in  a  simplified 
form  that  allows  the  user  to  choose  the  number  of  mode  shapes  or 
order  of  harmonics  to  suit  his  particular  problem,  while  retaining  the 
full  nonlinearity  of  the  formulation.  Third,  by  use  of  Fourier  analysis 
and  harmonic  balance,  the  current  analysis  avoids  the  need  for  time- 
marching  integration  and  avoids  any  computational  time  that  might 
be  needed  in  such  a  method  to  reach  the  final  flutter  limit  cycle. 

However,  as  currently  implemented,  the  model  still  has  limita¬ 
tions  (other  than  the  limitations  already  inherent  in  a  semi-empirical 
model  such  as  the  ONERA  model).  First,  the  current  application  of 
Fourier  analysis  to  the  forcing  terms  ignores  the  fixed-time  stall 
delay  of  the  ONERA  model.  Second,  as  noted  in  Section  5.1.4,  the  cur¬ 
rent  mode’  accurately  reproduces  the  exact  time  marching  solution  to 
the  ONERA  equations  for  moderate  amplitudes  of  oscillation,  but 
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breaks  down  for  larger  amplitudes.  This  precludes  properly  predict¬ 
ing  flutter  characteristics  well  beyond  the  small  amplitude  flutter 
boundary.  Third,  there  is  little  low  Reynolds  number  data  from 
which  to  extract  the  ONERA  nonlinear  coefficients. 

Fortunately,  these  deficiencies  are  not  inherent  to  the  model 
itself,  but  are  reflections  of  its  current  mode  of  application.  The 
fixed-time  stall  delay  can  be  directly  implemented  —  instead  of  being 
“smeared”  over  the  entire  hysteresis  loop  —  by  incorporating  a 
Fourier  series  step  function  multiplied  by  the  current  formulation,  so 
as  to  turn  "off"  the  nonlinearity  during  the  appropriate  lag  time. 
Larger  amplitudes  of  oscillation  can  be  handled  by  applying  the 
harmonic  balance  with  a  larger  number  of  harmonics.  However,  as 
discussed  in  Section  3.4.3,  using  a  time  marching  analysis  would 
probably  be  more  computationally  efficient  if  more  than  two  har¬ 
monics  are  required.  More  accurate  coefficients  can  be  determined 
by  simply  running  the  appropriate  2-dimensional  aerodynamic  tests 
with  the  current  wing  specimens  (so  as  to  retain  the  correct  surface 
roughness,  et  cetera),  although  this  is  a  recommendation  that  is 
applicable  to  the  current  investigation  only,  and  would  not  be  neces¬ 
sary  for  applications  to  real,  operational  devices,  for  which  much 
data  already  exists  at  the  appropriate  Reynolds  number.  Further 
work  also  needs  to  be  done  in  determining  3 -dimensional  aerody¬ 
namic  effects,  although  little  work  in  semi -empirical  models  has  yet 
been  accomplished  in  this  domain. 


6.2  Structural  Model 

The  current  investigation  has  added  two  contributions  to  the 
theory  of  ordering  schemes  for  application  to  nonlinear  structural 
modeling.  First,  it  has  extended  the  application  of  the  Hodges  & 
Dowell  nonlinear  equations  to  the  realm  of  anisotropic  materials  and, 
more  generally,  has  outlined  the  scheme  by  which  those  equations 
can  be  implemented  for  beams  with  through-the-thickness  variation 
or  through-the-thickness  asymmetry.  Second,  it  has  shown  by  com¬ 
parison  to  Minguet's  Euler  angle/Finite  Difference  method  that  a 
modal  approach  to  the  Hodges  &  Dowell  nonlinear  equations  yields 
satisfactory  results,  provided  that  sufficient  fore-&-aft  modes  are 
used,  making  those  equations  more  tractable  in  aeroelastic  applica¬ 
tions. 

Unfortunately,  it  was  found  in  the  current  investigation  that 
the  contribution  of  the  nonlinear  structures  to  this  particular  aero¬ 
elastic  problem  was  insignificant.  It  would  be  interesting  to  make  a 
further  analytic  and  experimental  investigation  with  wings  that  were 
less  stiff  in  the  fore-&-aft  direction,  i.e.  which  had  forc-&-aft  fre¬ 
quencies  much  closer  to  the  bending  and  torsion  frequencies.  Such 
an  investigation  might  be  accomplished  with  wings  that  were  more 
square  in  cross  section,  instead  of  low  thickness-to-chord  ratio. 

From  a  theoretical  viewpoint,  it  still  remains  to  somehow  ana¬ 
lytically  model  the  cubic  stiffening  observed  in  previous  investiga¬ 
tions,  since  this  effect  seems  to  play  a  large  role  in  the  hardening 
phenomenon  observed  at  larger  amplitudes  oi  oscillation.  It  might 
also  be  interesting  to  further  delve  into  the  effects  of  chordwise 
asymmetry  (while  the  through-the-thickness  asymmetry  has  already 


been  covered),  since  this  is  taken  into  account  by  the  Hodges  & 

Dowell  equations  but  ignored  in  the  current  analysis  because  of  the 
low  stiffness  of  the  asymmetrical  NACA  0012  styrofoam  fairings. 

Experimental  data  have  been  obtained  on  a  set  of  aeroelasti- 
cally  tailored  wings  with  varying  amounts  of  bending-torsion  cou¬ 

pling  and  matched  the  trends  of  previous  studies  [Refs.  90  to  92].  A 
more  in-depth  experimental  investigation  of  the  transition  from 
linear  to  nonlinear  flutter  behavior  has  been  accomplished,  and  a 
more  extended  set  of  data  past  the  flutter  boundary  has  been 
collected. 

As  mentioned  in  Section  6.1,  it  would  be  desirable  to  experi¬ 
mentally  investigate  the  2-dimensional  aerodynamic  behavior  of 

these  same  wings,  so  as  to  fine  tune  the  ONERA  model.  Also,  as  men¬ 
tioned  in  Section  6.2,  it  might  also  be  desirable  to  make  a  more  thor¬ 
ough  investigation  of  the  structural  nonlinearities  by  running  exper¬ 
iments  with  wings  that  are  softer  in  the  fore-&-aft  direction.  Beyond 
these  recommendations,  further  work  might  be  focused  toward  the 
investigation  of  the  variation  of  other  parameters  affecting  stall 

flutter  with  composite  wings:  taper  or  spanwise  variation  of  other 
properties  (such  as  layup  or  stiffness);  fore  and  aft  sweep,  with  large 
deflection;  the  aerodynamic  and  structural  effects  of  stores  and 
fuselage;  the  nonlinear  aerodynamic  and  structural  effects  within 
body  rreedom  flutter. 
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Appendix  A  —  Material  Properties 

The  out-of-planc  characteristics  of  graphite/epoxy  laminates 
(i.e.  the  bending  curvatures  due  to  applied  moments)  have  been 
observed  to  be  experimentally  different  from  in-plane  characteristics 
(i.e.  stretching  due  to  applied  extensional  forces).  These  differences 
have  also  been  observed  to  be  layup  and  thickness  dependent, 
although  the  thickness  dependency  may  actually  be  due  to  manufac¬ 
turing  errors  compounded  by  the  factor  in  the  Djj  terms,  as 
hypothesized  by  Minguet  [Ref.  74].  For  the  current  investigation, 
there  is  no  thickness  dependency  since  all  the  laminates  are  of  the 
same  thickness.  The  layup  dependency  has  been  “smeared”  across 
all  the  layups,  so  that  in  the  current  investigation  only  the  out-of- 
plane  bending  moduli  vtrere  used,  no  matter  what  the  layup  was. 


Hercules  AS4/3501-6 
Graphite/Epoxy 

In-plane 

stretching 

Out-of-plane 

bending 

longitudinal  modulus 

143  GPa 

97.3  GPa* 

Ej,  transverse  modulus 

9.7  GPa 

6.3  GPa* 

shear  modulus 

4.9  GPa 

5.3  GPa** 

V|^j,  Poisson’s  ratio 

0.30 

0.28 

p,  density 

1540  kg/m^ 

1 540  kg/m^ 

t,  ply  thickness 

0.135  mm 

0.135  mm 

*  Based  on  static  deflection  tests 

**  Based  on  free  vibration  tests 
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The  styrofoam  properties  were  determined  by  averaging  two 
tests.  First,  static  deflection  tests  in  bending  and  in  torsion  were 
performed  on  a  piece  of  styrofoam  55  cm  long  and  12.7  cm  by 
1.6  cm  in  cross  section.  Next,  vibration  tests  were  performed  on  a 
smaller  [02/901g  wing  with  styrofoam  fairings  [Refs.  94  and  95],  and 
the  styrofoam  moduli  adjusted  until  the  analytic  frequencies  exactly 
matched  the  experimental  frequencies.  The  styrofoam  moduli  were 
then  assumed  to  be  the  average  of  these  two  values.  The  observed 
values  from  static  deflection  and  free  vibration  were  both  within 
25%  of  the  final  averaged  values. 


HD-300  styrofoam  | 

Nominal 

Observed 

E]^,  longitudinal  modulus 

24  MPa 

15  MPa*** 

Ej,  transverse  modulus 

24  MPa 

15  MPa*** 

shear  modulus 

15  MPa 

8  MPa*** 

Vlt*  Poisson's  ratio 

0.30 

0.28 

p,  density 

35  kg/m^ 

35  kg/m^ 

II 

26.4  MPa 

16.5  MPa 

II 

jS. 

7.9  MPa 

11.9  MPa 

15.0  MPa 

8.0  MPa 

***  Average  of  static  deflection  and  free  vibration  tests 
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Appendix  B 


—  Flat  Plate  Structural  and  Mode  Shape 
Constants 


[0,/90Is 

[+152/02]g 

[-152/02155 

All 

8.09x10'^ 

9.96x10^ 

9.96x10'^ 

A22  (N/m) 

3.15x10”^ 

7.47x10^ 

7.47x10® 

A 12  (N/m) 

1.91x10^ 

4.59x10® 

4.59x10® 

^66  <N/m) 

5.72x10^ 

8.40x10® 

8.40x10® 

Aig  (N/m) 

-0- 

1.08x10“^ 

-1.08x10'^ 

(N/m) 

-0* 

1.53x10® 

-1.53x10® 

Dll 

10.1163 

9.2478 

9.2478 

D22  (Nm) 

0.8147 

0.7718 

0.7718 

Di2  (Nm) 

0.1861 

0.6418 

0.6418 

D^(Nm) 

0.5564 

1.0121 

1.0121 

Dig  (Nm) 

-0- 

1.8395 

-1.8395 

D2g  (Nm) 

-0- 

0.2608 

-0.2608 

All  Bjj  vtlnes 

are  zero  because  all  layups 

are  symmetric 
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^»y“P  g  n  g  t  B„,  B„^  B„^ 

1  1.8144  6.7476  -.24235  +.90076  -.24219 
[03/90]s  .02368  2  5.0358  8.2218  +.38956  -.63637  +.38977 

_ 3  8.0742  10.365  -.42572  +.54295  -.42296 

1  1.7495  9.3334  -.17845  +.94938  -.17844 
(+152/02]s  .01190  2  5.0501  10.467  +.35933  -.73484  +.35454 

_ 3  8.1550  12.270  -.39855  +.59909  -.39817 

1  1.7495  9.3334  -.17845  +.94938  -.17844 
[-152/02]$  .01190  2  5.0501  10.467  +.35933  -.73484  +.35454 

_ 3  8.1550  12,270  -.39855  +.59909  -.39817 

In  all  cases  6^3  s  -8^1 


Appendix  C  —  Static  Aerodynamic  Models 

Raw  data  for  the  static  lift  curve  of  the  NACA0012  airfoil  is 
taken  from  Jacobs  &  Sherman  [Ref.  97]  and  is  empirically  Ht  using 
the  previously  described  division  into  polynomial  regions.  For  the 
current  study,  the  Reynolds  number  is  very  low,  always  below  the 
critical  Reynolds  number  of  approximately  3.4x10^.  Therefore,  no 
Reynolds  number  dependence  was  incorporated  for  varying  free 
stream  velocity.  As  illustrated  in  Fig.  33,  the  model  of  the 
3-dimensional  lift  curve  used  in  this  study  is  divided  into  three 
regions  and,  for  simplicity,  each  region  is  defined  by  a  straight  line: 
(i)  below  the  stall  angle,  aj  s  10°,  the  3-dimensional  lift  slope  is 
given  by  aQL«CL^  =  0.8*5.9  rad*^  (where  the  0.8  factor  comes 
from  the  Hnite-span  correction  for  an  aspect  ratio  of  8),  (ii)  between 
10°  and  20°  the  3-dimensional  lift  coefficient  drops  linearly  to  0.75, 
and  (iii)  above  20°  the  3 -dimensional  lift  coefficient  remains  con¬ 
stant  at  0.75.  The  3-dimensional  moment  coefficient  follows  the 
same  trend:  (i)  it  remains  zero  below  the  stall  angle,  (ii)  drops  lin¬ 
early  to  -0.108  between  10°  and  20°,  and  (iii)  drops  linearly  to 
-0.150  between  20°  and  37.5°.  The  two-dimensional  proHle  drag  is 
given  by  dM  polynomial, 

(C-1)  *  4.9230^  +  .1473a2  .042a  +  .014 

Other  3-dimensional  effects  are  included  by  adding  a  span- 
wise  drop,  as  suggested  by  lifting  line  theory  and  approximated  by  a 
9th  order  polynomial  (see  Landsberger  [Ref.  92]).  The 
2-dimensional  curves  are  already  corrected  for  finite  aspect  ratio. 


(C-2) 


1 


where  the  corrected  angle  of  attack  included  the  finite-span  correc¬ 
tion,  as  suggested  by  Jacobs,  Ward,  &  Pinkerton  [Ref.  98], 


(C-3) 
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The  3 -dimensional  total  drag  is  found  by  adding  the  induced  drag  to 
the  proHle  drag. 


(C-4) 


cf 


As  is  suggested  by  Petot  [Ref.  52],  and  illustrated  in  Fig.  34, 
more  complex  descriptions  can  be  devised,  and  may  be  useful  for 
higher  Reynolds  number  flows  where  the  lift  drop  after  stall  is  more 
acute.  A  parabolic  fit  can  be  used  to  describe  the  slight  drop  in  lift 
preceding  stall.  A  power  series  expansion  into  a  high  order  polyno¬ 
mial  can  be  used  to  describe  the  exponential  drop  immediately  fol¬ 
lowing  stall  (the  conversion  from  exponential  form  to  polynomial 
form  is  necessitated  by  the  formulation  of  the  Fourier  series  in 
Section  3  J^).  A  flat  line  can  be  used  to  describe  the  fully  decayed 
exponentiil  for  very  high  angles  of  atuck. 

The  variables  describing  the  aerodynamic  force  curves,  such  as 
the  maximum  lift  coefficient  or  the  minimum  profile  drag,  can  fur¬ 
ther  be  generalized  over  a  wide  range  of  free  stream  velocities,  as 
suggested  by  the  logarithmic  dependence  on  the  Reynolds  number 


described  by  Jacobs  &  Sherman  [Ref.  97].  Similar  fits  for  the 
moment  coefficient  curve  can  be  generated  using  the  data  from 
McAlister,  Pucci,  McCroskey,  &  Carr  [Ref.  4]. 


Appendix  D  —  Coefficients  of  Aerodynamic  Equations 

Table  5  shows  the  coefficients  of  the  2-dimensional  aerody¬ 
namic  equations  (3-62)  to  (3-64),  used  for  the  lift  and  moment  coef¬ 
ficients.  It  is  assumed  that  there  is  no  hysteresis  In  the  drag  coeffi¬ 
cient.  The  linear  coefficients  (s^,  “l*  ®L’  ®oM’  *M’  ^M’  “M’ 

and  Oj^)  were  taken  from  standard  references  with  the  following 
exceptions:  s^  was  taken  from  Petot  [Ref.  52]  although  a  more 
consistent  value  could  have  been  Sl=jc;  was  derived  by  fitting  the 
NACA  0012  data  from  Jacobs  &  Sherman  [Ref.  97]  although  the 
linear  value  could  have  been  used. 

The  nonlinear  coefficients  a  and  r  for  the  NACA  0012  airfoil 
were  taken  from  Petot  [Ref.  52]  for  Reynolds  numbers  above  the 
critical  Reynolds  number  of  3.4x10^.  The  nonlinear  coefficient  e  for 
the  NACA  0012  airfoil  was  taken  from  Petot  &  Dat  [Ref.  54]  for 
Reynolds  numbers  above  the  critical  Re,  since  the  form  of  the  forcing 
terms  used  in  Ref.  52  was  unsuitable  for  determining  an  appropriate 
value  of  e,  as  is  discussed  in  more  detail  later. 

Corrections  for  low  Reynolds  flow  were  guided  by  similar 
values  given  by  Petot  &  Loiseau  [Ref.  51].  In  that  investigation,  con¬ 
ducted  for  an  OA  209  profile,  a^  and  r^  were  determined  to  remain 
unchanged  from  high  to  low  Reynolds  number.  In  other  words,  it 
was  determined  that  the  characteristics  of  light  stalling  —  i.e.  when 
AC.  was  small  —  were  insensitive  to  Reynolds  number. 

However,  it  was  also  determined  that  the  characteristics  of 
moderate  or  deep  stalling  —  i.e.  when  AC^  was  no  longer  insignificant 
—  were  very  sensitive  to  the  Reynolds  number.  The  value  of  a^  rose 


from  0.45  to  1.75  for  the  OA  209  airfoil,  in  other  words  by  a  factor 
of  approximately  4.  The  form  of  the  nonlinear  coefficient  r  used  in 
the  study  was, 

(D-1)  +  +  p  +  withp=-l 

«  Tq  +  aACj  -  1  +  (-1)^(1  -  oAC^  +  (aACj)^) 

-  To  + 

The  above  formulation  indicates  that  r|  corresponds  approxi¬ 
mately  to  a^,  for  small  values  of  AC^.  In  Ref.  51,  a  rose  from  0.65  to 
1.0  for  the  OA  209  airfoil,  indicating  that  the  corresponding  rj  would 
rise  from  approximately  0.42  to  1.0,  or  by  a  factor  of  approximately 
2.5. 

The  final  value  of  the  nonlinear  coefficient  e  was  governed  by 
several  influences.  First,  several  forms  of  the  forcing  —  or  right  hand 
side  (RHS)  —  of  the  nonlinear  ONERA  equation  were  used  in  different 
studies, 

(D-2)  RHS  =  -[rAC,  +  e(AC  J] 

(D-3)  RHS  =  -[rAC,  +  eS] 

(D-4)  RHS  =  -r(AC  +  e(ACJ] 

The  form  used  in  equation  (D-2)  is  the  form  used  by  Petot  & 
Loiseau  [Ref.  51]  for  an  OA  209  airfoil,  in  which  it  was  determined 
that  the  value  of  ej  rose  from  -0.6  to  -2.7  going  to  low  Reynolds 
number  flow,  in  other  words  by  a  factor  of  approximately  4.5. 
Equation  (D-2)  is  also  the  form  used  in  the  current  investigation. 


The  form  used  in  equation  (D-3)  is  that  used  by  Peiot  [Ref.  52]. 
While  this  form  is  easier  to  incorporate  in  a  harmonic  analysis  such 
as  the  current  investigation,  it  seems  to  be  physically  counter-intu¬ 
itive  since  it  indicates  that  there  would  be  stalling  influences  due  to 
9  even  in  the  unstalled  region.  For  this  reason  the  form  of  equation 
(D-3)  was  not  used  in  the  current  investigation. 

The  form  used  in  equation  (D-4)  is  that  used  by  Petot  &  Dat 
[Ref.  54]  and  seems  to  have  a  more  sound  physical  basis:  the  phase- 
lag  is  expressed  directly  in  relation  to  the  force  deHcit  AC^,  instead  of 
in  relation  to  rAC,  as  in  equation  (D-2).  However,  this  form  is  more 
difficult  to  implement  in  a  harmonic  balance  method  since  the  prod¬ 
uct  of  r  and  e  would  produce  a  sixth-order  polynomial.  Hence  the 
form  of  equation  (D-4)  was  not  used  in  the  current  investigation. 
However,  the  value  of  the  nonlinear  coefHcient  e  for  a  NACA  0012 
airfoil  above  the  critical  Reynolds  number  was  determined  from 
Ref.  54  since  Ref.  51,  which  uses  the  form  of  the  current  investiga¬ 
tion,  only  looked  at  the  OA  209  airfoil.  The  value  of  ej=-0.6  was 
taken  from  Ref.  54  and  multiplied  by  rQ=.04  to  give  the  value  of 
ej>-.024  used  in  the  current  investigation. 

In  determining  the  nonlinear  coefficient  e,  the  effect  of  the 
fixed-time  delay  cannot  be  ignored.  As  mentioned  previously,  Petot 
&  Loiseta  (Ref.  51]  determined  that  ej  rose  by  a  factor  of  approxi¬ 
mately  4.5  for  the  OA  209  airfoil  going  to  low  Reynolds  number 
flow.  However,  their  investigation  included  a  fixed-time  delay  while 
the  current  investigation  does  not.  If  the  force  deficit  is  approxi¬ 
mated  by  only  its  first  harmonic,  i.e.  using  only  A^  and  Aj,  then  the 
forcing  term  in  the  current  investigation  looks  like. 
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(D-5) 


RHS  =  -[rAC^  +  eCAC^)] 

=  -[fAq  +  rAjSin(kt)  +  ekAjCOS(kx)  +  H.H.T.] 
=  -[fAq  +  V F^+(ek)^  AjSin(k(x  +  Ax))] 

■  -[fAq  +  FAjSin(k(x  +  Ax))]  foF  ek  «  r 


with 


Ax  = 


1  le  k 
r  tan 

k  F  F 


1  .ic e  - 
—  ‘  —  a  -  fOF  ck  «  F 


So,  the  nonlinear  coefficient  e  can  be  interpreted  as  a  fixed 
time  delay  parameter  —  however,  it  must  be  realized  that  this  anal¬ 
ogy  breaks  down  for  higher  harmonics  and  larger  values  of  ek.  Also, 
to  interpret  the  nonlinear  coefficient  as  a  fixed  time  delay  parameter, 
it  must  be  interpreted  as  affecting  the  entire  forcing  function  as  a 
whole,  i.e.  the  entire  right  hand  side  of  the  stalled  ONERA  equation 
(as  in  Petot  &  Loiseau  [Ref.  51]),  and  not  simply  the  force  deficit  AC,, 

(as  in  Petot  [Ref.  52]  or  Petot  &  Dat  [Ref.  54]).  That  is,  to  interpret 

the  nonlinear  coefficient  e  as  a  fixed  time  delay  parameter,  it  must 
be  conceded  that  the  nonlinear  coefficients  r  &  a  are  not  affected  by 
the  time  delay.  While  this  assertion  makes  the  mathematical  formu¬ 
lation  easier  to  interpret,  it  makes  less  physical  sense,  since  intu¬ 
itively  the  frequency  and  damping  should  be  functions  of  the  devel¬ 
opment  of  the  stalling,  and  should  therefore  be  affected  by  any  delay 
which  affects  AC..  In  conclusion,  a  fixed  time  delay  over  a  short 

m 

period  of  the  hysteresis  cycle,  such  as  used  in  Refs.  51-56,  can  be 
“smeared**  over  the  entire  cycle  and  eliminated  from  the  mathemati¬ 
cal  formulation  by  appropriately  adjusting  the  nonlinear  coefficient 

e.  It  is  for  this  reason  that  the  high  and  low  Reynolds  number  values 
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of  e  in  Table  5  are  so  different,  because  At  has  been  left  in  for  the 
former  while  it  has  been  eliminated  for  the  latter. 

A  sensitivity  analysis  was  done  on  the  flutter  boundary  of  the 
[03/90]^  wing  to  determine  the  final  values  of  the  nonlinear  coeffi¬ 
cients  a,  r,  &  e.  The  initial  values  of  this  sensitivity  analysis  were 
governed  by  the  approximate  correction  factors  that  might  be  sug¬ 
gested  by  the  investigation  of  Petot  &  Loiseau  [Ref.  51]:  a^  remained 
constant  at  0.25;  a^  rose  by  a  factor  of  4  from  0.1  to  0.4;  r^  remained 
constant  at  0.2;  r^  rose  by  a  factor  of  2.5  from  0.1  to  0.25;  e^  rose  by 
a  factor  of  4.5  from  -.024  to  -0.1.  The  sensitivity  analysis  attempted 
to  find  the  smallest  adjustments  to  these  nonlinear  values  which 
could  appropriately  fit  the  [03/90]^  flutter  boundary. 

The  values  of  a^  and  a^  had  little  effect  on  the  flutter  bound¬ 
ary,  so  they  were  left  unchanged.  The  values  of  r^  and  r^  were  found 
to  affect  the  flutter  boundary,  but  had  little  effect  on  the  flutter  fre¬ 
quency  plot,  as  shown  in  Fig.  35.  Increasing  r^  increased  the  range 
over  which  the  flutter  boundary  was  governed  by  light  stall. 
Increasing  r^  changed  that  part  of  the  flutter  boundary  governed  by 
deep  stall  such  that  the  flutter  velocity  would  decrease  at  a  greater 
rate.  Increasing  e^  had  the  same  effect  on  the  flutter  boundary,  but 
also  increased  the  rate  at  which  the  frequency  plot  rose  toward  the 
first  torsion  frequency. 

The  procedure  for  making  the  final  adjustments  to  the  nonlin¬ 
ear  coefficients  was  threefold:  first,  e|  was  increased  from  -.024  to 
+.030  so  as  to  accurately  fit  the  rise  in  the  flutter  frequency;  second, 
rj  was  increased  from  0.25  to  1.0  to  account  for  the  sharper  drop  in 
flutter  velocity;  third,  r^  was  decreased  from  0.2  to  0.1  to  account  for 


the  shorter  range  of  light  stall  behavior.  The  changes  in  r^  and 
seem  reasonable  in  comparison  to  the  similarly  large  changes  indi¬ 
cated  by  Petot  &  Loiseau  [Ref.  51].  While  at  .  first  the  change  in  sign 
for  e|  seems  odd,  the  “smearing”  of  At  is  also  included  in  this  adjust¬ 
ment. 

An  alternative  method  of  determining  these  coefHcients  of  the 
nonlinear  aerodynamics  would  have  been  to  base  them  on  the  flutter 
boundary  of  the  ['•*152/02)3  instead.  The  reasoning  would  be  that  no 
matter  what  the  root  angle  of  attack  would  be,  most  of  the  wing 
would  be  relatively  untwisted,  and  so,  except  for  3 -dimensional 
spanwise  corrections,  the  aerodynamics  across  the  span  of  the  wing 
would  be  almost  the  same.  The  only  problem  with  this  approach  is 
that  the  [*>-152/02]3  layup  has  a  very  short  light  stall  region,  that  is,  it 
goes  from  the  linear  region  to  the  deep  stall  region  for  only  a  small 
change  in  the  root  angle  of  attack  (as  can  be  seen  in  Fig.  25). 
Therefore,  it  would  be  difHcult  to  determine  the  a^,  r^,  and  e^  values 
from  the  [+152/02)3  layup. 


Lift 


Moment 


0.09*(180/;c)  rad 


-1 


•ji/4  rad*  ^ 


z 


7c/2  rad 


- 1 


•3ji/16  rad' ^ 


0.15 


0 


0.55 


1 


5.9  rad’* 


-jt/4  rad'^ 


0.25  +  O.I(ACl)^ 
(0.2  +  O.KACl)^!^ 
..024(ACl)^ 

10 


•  • 


At 


•  • 


0.25  +  0.4<ACl)^ 
(0.1  +  1.0(ACl)^1^ 
■•-.030(ACl)^ 

0 


Re  >  3.4x10^ 
Re  <  3.4x10^ 


Table  5.  Aerodynamic  Coefficients 


Appendix  E  —  Example  of  Fourier  Analysis 

Equations  (3-78)  to  (3-80)  are  still  applicable: 


(E-1) 

a(t)  =  <*0  a^sin(kx+^) 

where. 

(E-2) 

®v  =  V«s  +  “  c 

(E-3) 

§  =  tan*^-^ 

^  Of 

For  a  single  break  point  model  (see  Fig.  36),  equation  (3-69) 
simpliHes  to  the  following  equations,  where  is  the  stall  angle  and 
a II  is  the  difference  in  slopes  between  the  linear  region  and  the  non¬ 
linear  region. 


(E-4) 


'aii(a-a^) 

.0 


for 

for  a<a^ 


Equations  (3-84)  to  (3-87)  then  give  that, 
(E-5)  b|o*a||(a^,-a^) 


(E-6) 

> 

II 

JO 

(E-7) 

,  a 

MO  *  2  ‘ 

(E-8) 

Ill  = 

(E.9) 


Il2  =  pin9^cosq)^  +  ^ 


where  equation  (3-86)  is, 
r 


(E-IO) 


‘Pa^ 


sin 


-1 


a.  -a 


if 


a  *  -a 

A 


>  +1 

<  -1 


Finally,  putting  these  expressions  into  the  combined  mean  and 
oscillatory  components  of  the  nonlinear  aerodynamic  deviations 
(3-83)  and  (3-90),  we  get. 


(E-ll) 


AC  = 
zo 


_h& 


2-^a  +COS9, 


(E-12) 


-lu 


sin9^  cos9a  ”*■  2  '  ’’’a 


► 


A  symmetric  aerodynamic  force  curve  can  also  be  accounted 
for  by  inclvding  a  second  stall  angle  at  -a^.  This  yields  expanded 
versiont  Equations  (E-ll)  and  (E-12), 


(E-13) 
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(E-14) 


where 


(E-15) 


f  «  1 

AC,^=-^|-sin<p^  cos(p^  2  ■ 

a.ia  [  ji 

+  -^|+sin?A  2 

the  additional  form  of  equation  (3-86)  that 


is  required  is, 


r 


sin 


-1 


.  A  -  Q.l 
“v 


if 

if 


>  +1 

<  -1 
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Appendix  F 


The  Newton-Raphson  Method 


The  Newton-Raphson  method  is  a  numerical  solver  used  :o  find 
the  roots  of  the  implicit  vector  equation,  f(x)  =  0,  where  x  is  the 
state  vector  and  f(x)  is  the  vector  of  residual  functions  that  must  be 
driven  to  zero.  The  Newton-Raphson  scheme  takes  an  initial  guess  of 
the  state  vector  x  and  drives  the  vector  f(x)  toward  zero  by  invert¬ 
ing  the  Jacobian  matrix  (derivative  matrix),  and  obtaining  a  correc¬ 
tion  Ax  to  the  current  guess.  The  process  is  repeated  until  the  cor¬ 
rection  Ax  becomes  negligible  and  the  process  is  deemed  to  have 
converged. 


(F-1) 


Ax<“)  =  - 


df 


dx 


- 1 


f(x^“>) 


x(“+i)  =  x^“>  +  Ax^“> 


The  Newton-Raphson  solver  is  applied  in  the  current  analysis 
by  rearranging  equation  (3-217)  as  follows; 


1 — 

o 

o 

g 

0  -oj2[M]+[K]  0 

- 

{Q,} 

_  0  0  -tii2[M]+[K]. 

.{qc)- 

-{Qc)- 

Equation  (F-2)  comprises  3n  equations  that  must  be  solved  in 
the  form  f(x)  =  0  and  are  nonlinear  in  the  aerodynamic  dependence 
of  the  modal  forces  Qj  on  the  modal  amplitudes  q^  and  in  the  struc¬ 
tural  dependence  of  the  stiffness  matrix  Kjj  on  the  modal  amplitudes 
qj.  The  state  vector  x  is  comprised  of  the  harmonic  components  of 
the  modal  amplitudes,  qj^,  qj^,  and  qj^.,  with  some  minor  adjustments 
to  ensure  convergence  to  a  non-trivial  solution:  the  sine  component 
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of  one  mode  qj  is  set  to  some  small  constant  to  set  the  amplitude 
level,  while  its  cosine  component  is  set  to  zero,  since  the  flutter  limit 
cycle  oscillations  can  start  at  any  arbitrary  phase.  The  mode  usually 
chosen  for  this  substitution  is  the  first  torsional  mode,  since  experi¬ 
mentally  it  is  this  mode  which  dominates  the  oscillatory  motion. 
These  sine  and  cosine  components  are  then  dropped  from  the  state 
vector  X  and  are  replaced  by  the  reduced  frequency  of  oscillation,  k, 
and  the  flutter  velocity,  U.  Because  the  sinusoidal  component  of  one 
mode  shape  has  already  been  set  to  a  non-zero  value,  the  Newton- 
Raphson  scheme  does  not  converge  to  the  trivial  steady  solution. 

Note  that  the  Newton-Raphson  solver  is  not  always  guaranteed 
to  converge,  especially  when  the  initial  guess  is  too  far  from  the 
ultimate  solution  or  when  the  derivatives  used  in  the  Jacobian  matrix 
are  changing  abruptly,  which  often  happens  with  nonlinearities  that 
have  discontinuous  derivatives.  In  regions  where  convergence  is 
difficult  (for  example  near  the  stall  angle  where  the  lift/moment 
coefficient  curves  are  discontinuous  in  slope),  a  relaxation  technique, 
which  consists  of  taking  only  a  fraction  of  Ax  as  a  correction  for  each 
iteration,  is  more  likely  to  converge.  When  the  Newton-Raphson 
solver  does  converge  to  a  solution,  it  will  satisfy  the  equations,  but 
there  is  no  indication  as  to  whether  this  solution  is  unique  or  not.  If 
other  solitions  exist,  the  only  way  to  find  them  is  to  start  with  a 
different  initial  state  vector. 

The  Jacobian  matrix  can  be  calculated  either  numerically  or 
analytically.  The  numerical  method  involves  moving  an  incremental 
distance  in  each  direction  of  the  state  vector  x,  finding  the  resulting 
incremental  change  in  the  residual  vector  f,  and  estimating  each 


component  of  the  derivative  matrix  as  Afj/AXj.  The  analytic  method 
involves  carrying  out  the  entire  nonlinear  differentiation,  which  is 
best  carried  out  by  multiple  application  of  the  chain  rule  to  the 
equations  of  Chapter  3. 

Both  the  numerical  and  analytic  methods  have  their  advan¬ 
tages  and  disadvantages.  The  numerical  method  is  easier  to  code  on 
a  computer  since  it  involves  using  the  already  existing  subroutines 
which  must  compute  the  residual  vector.  On  the  other  hand,  the 
numerical  method  is  computationally  inefficient  since  it  requires 
recalculating  the  residual  vector  for  every  direction  of  the  state 
vector.  In  addition,  the  numerical  method  is  likely  to  be  inaccurate 
at  points  of  discontinuity  in  derivatives,  unless  the  user  is  careful  to 
choose  appropriately  small  increments  in  the  state  vector. 

By  contrast,  the  analytic  model  directly  solves  for  the  Jacobian 
matrix  without  needing  several  iterations,  and  so  is  computationally 
faster  for  higher  numbers  of  mode  shapes  and  harmonics.  In  addi¬ 
tion,  the  analytic  method  is  always  accurate  and  does  not  depend  on 
any  step  size.  Unfortunately,  the  analytic  method  cannot  employ 
already  existing  subroutines  and  requires  cumbersome  programming 
for  a  highly  nonlinear  problem  such  as  in  the  current  study. 

Both  the  numerical  and  the  analytic  methods  were  used  to  cal¬ 
culate  the  Jacobian  matrix  in  the  current  study  and  compared  well 
against  each  other.  However,  with  the  large  complexity  in  calculating 
the  modal  forces,  the  numerical  method  is  more  likely  to  have  fewer 
coding  errors  than  the  analytic  method,  despite  being  computation¬ 
ally  slower.  For  this  reason,  it  was  used  more  extensively  for  the  full 
flutter  analyses. 
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Appendix  G  —  Computer  Code 


FILE  :  FLUTTER. FOR 
PROGRAM  FLUTTER 


INCLUDE 

INCLUDE 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

LOGICAL 

CHARACTER 


PARAM . INC 
GLBBLK . INC 

QLIT (MAXMODE, 3) ,QDUM {MAXMODE, 3) 

QALL ( 3 ‘MAXMODE ), RES ( 3 *MAXMODE ), QBIG (MAXMODE , 3 ) 
DRDQ ( 3 ‘MAXMODE, 3 ‘MAXMODE ), DQALL ( 3 ‘MAXMODE ) 
VEL,A0A,FREQ,ATIP{3) ,HTIP (3) ,VTIP (3) 

SMAX,RMAX 

LMAX, lERR, BEN_TOR, MBT 

CONVERGED, LNEWT, LSTRUC, LCUBE, LFLUTB, LSTART 
LAYUP ‘ 2 5 , ANS WER ‘ I , F I LENAME ‘ 2 5 , CDUM ‘ 8 


REAL 

REAL 

COMMON 

£ 


AOL, A1L,R0L,R1L,E0L,E1L 

AOM,  AIM, ROM, RIM, EOM, ElM 

/  COEFBLK  /  AOL,A1L,ROL,R1L,EOL,E1L, 
AOM, AIM, ROM, RIM, EOM, ElM 


QLIT(i, j)  ; 

CALL: 

RES: 

DRDQ: 

DQALL: 

VEL: 

AO  A: 

FREQ: 

ATIP; 

HTIP: 

lERR: 

BEN_TOR: 

CONVERGED : 

LNEWT; 

LSTRU: 


LAYUP: 


1- th  modal  amplitude,  j-th  component  (l*mean, 

2- 3ine, 3“C03ine) 

Augmented  3tate  vector 
Reeidual  vector 

Jacobian  matrix,  derivativea  of  reaiduals  (RES) 
w.r.t.  the  3tate  vector  (QALL) 

Corrections  to  augmented  state  vector 
Free  stream  velocity 
Root  angle-of-attack 
Reduced  frequency 

Components  of  oscillating  tip  angle 
Components  of  oscillating  tip  deflection 
Error  status  variable  for  opening  of  data  file 
Integer  variable  denoting  whether  analysis  assumes 
bending  (BEN_TOR«l)  or  torsional  (BEN_TOR“2)  flutter 
Logical  variable  to  tell  if  Newton-Raphson  solver 
has  converged  to  a  solution 

Logical  variable  to  tell  if  diagnostics  are  to  be 
printed  to  output  file  at  each  step  of  the  N-R  solver 
Logical  variable  to  tell  if  diagnostics  are  to  be 
printed  to  output  file  on  structural  variables 
Character  variable  to  denote  flat  plate  layup  (eg.  for 
[0:2/90] :s,  LAYUP  might  be  '0290').  All  data  files 
must  be  of  the  form  <LAYUP>.DAT. 


FOIL  -  •NAC12' 


Read  in  the  layup. 

WRITE(*, ' (A,S) •)  •  Layup  :  • 

READ(‘,  '  (A)  '  ,ERR<-10)  LAYUP 

MRITE(*, * (A, $) ')  '  Newton-Raphson  control  file  :  * 
READ(*, ' (A) ',ERR-20)  FILENAME 

Read  in  specifications  of  current  run  from  control  file. 

30  FORMAT ( /8X, 5I8///8X, 7L8///8X, 18, 2L8, 18, 2G8. 0,18) 

OPEN (UNIT-2 , FILE-TRIM (FILENAME) , 

£  STATUS- ’ OLD ' , FORM- ' FORMATTED ' , ERR-2 0 ) 

READ (2,30, ERR-2  0 )  NB , NT , NC , NF , BEN_TOR , LAT AN , LCUBE , 
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&  LINEAR, CORREC, REDUC, STEADY, VLINES, ATYPE,  LCONST, 

«  LGEOM, IGEOM,SMAX,RMAX,LMAX 
CLOSE (2) 

NMODES  -  NB+NT+NC+NF 

IF  ( (NB.LT.l) .OR. (NB.GT.NBMAX) )  GOTO  20 
IF  ( (NT.LT.l) .OR. (NT.GT.NTMAX) )  GOTO  20 
IF  ((NC.LT.O) .OR. (NC.GT.NCMAX))  GOTO  20 
IF  ( (NF.LT.O) .OR. (NF.GT.NFMAX) )  GOTO  20 
C 

C  Read  in  nonlinear  aerodynamic  coeff icienta . 

C 

IF  ( (ATYPE.NE.O) .AND. (ATYPE.NE.l) )  THEN 
35  MRITE(*, ' (A, $) ')  '  Aero  control  file  :  ' 

READ(*, • (A) ',ERR-35)  FILENAME 
OPEN ( UNI T-2 , F I LE-TR IM { F I LENAME ) , S T ATUS - ' OLD ' , 
i  FORM- ' FORMATTED ' ,ERR-3 5) 

READ(2, • (/8X,6G8.0///8X,6G8.0) •,ERR-35)  A0L,A1L, 
fi  ROL,  RIL,  EOL, EIL, AOM, AIM, ROM, RIM, EOM, ElM 
CLOSE (2) 

ENDIF 

C 

LNEMT  -  .FALSE. 

40  WRITE (*, * (/A, $) * )  '  Output  Newton-Raphaon  troubleahooting  '// 
t  'diagnoatica  ?  ' 

READ(*, ' (A) ',ERR-40)  ANSWER 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. ’y') )  LNEWT-  .TRUE. 

C 

LAEROF  -  .FALSE. 

SO  WRITE (*, ' (A, $) ' )  '  Output  aerodynaaica  troubleahooting  '// 

&  'diagnoatica  ?  ' 

REAO(«, ' (A) ',ERR-S0)  ANSWER 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  LAEROF-  .TRUE. 

C 

LSTRUC  -  .FALSE. 

55  WRITE (*, ' (A, S) ' )  '  Output  atructurea  troubleahooting  '// 
i  'diagnoatica  ?  ' 

READ(*, ' (A) ',ERR-55)  ANSWER 

IF  ( (ANSWER.EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  LSTRUC-  .TRUE. 

C 

LSTART  -  .FALSE. 

60  WRITE(*, ' (A, S) ')  '  Write  reatart  file  ?  ' 

R£AO(*, ' (A) ',ERR-€0)  ANSWER 

IF  ( (ANSWER.EQ. 'Y') .OR. (ANSWER.EQ. 'y') )  THEN 
LSTART  -  .TRUE. 

WRITE (FILENAME, ' (A, 411) ')  TRIM(LAYUP) // 

6  • .atart ',NB,NT,NC,Nr 

OPEN (UMXT-3, riLE-TRZM (FILENAME) , STATUS- 'NEW' , 

6  FORM-' FORMATTED ',ERR-60) 

ENDIF 

C 

DO  €5  X  -  1,NMC»ES 

IF  (X.LE.NB)  NRXTE(MLABEL(I) , ' (A, ID ')  'B',I 
IF  ((X.6T.NB)  .AND.  (X.LE.NB+ND) 

«  NRITE(MLABBL<X) ,  '  (A,ID ')  ’T',I-NB 

IF  ( (X.GT.NB+NT) .AND. (X.LE.NB+NT+NC) ) 
fc  WRXTE(MLABEL(X), ' (A, ID ')  'C ' , I- (NB+NT) 

IF  ( (X.GT.NB+NT+NC) .AND. (I . LE.NB+NT+NC+NF) ) 

&  WR1TE(MLABEL(I) , • (A,ID ')  ' F ' , I- (NB+NT+NC) 

65  CONTINUE 
C 

C  Create  tnaaa  and  atiffneaa  matricea  by  calling  STATIC  aubroutine. 
C 

CALL  STATIC (LAYUP, LSTRUC, TRATIO,  lERR) 

IF  (lERR.NE.O)  THEN 
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WRITE  (*,  '  (A,  12,  A)  ' )  '  lOSTAT-MERR,  '  error  reading  ’// 

&  TRIM (LAYUP) //■ .DAT  data  file.' 

GOTO  10 
ENDIF 


Open  output  file. 

FILENAME  -  TRIM (LAYUP) // 'WNAV. OUT  ' 

OPEN (UNIT-2,  FILE-TRIM (FILENAME) , 

&  STATUS- 'NEW '.FORM-' FORMATTED ', lOSTAT-IERR) 

IF  (lERR.EQ.O)  THEN 

WRITE  (*,*)  '  Analysis  results  )3eing  sent  to  ', 

&  TRIM (FILENAME) 

ELSE 

WRITE (*, ' (A, 12, A) ' )  '  lOSTAT-' , lERR, '  error  opening  '// 

£  TRIM (FILENAME) // '  as  output  file.' 

GOTO  10 
ENDIF 


WRITE (2, ' (4 (/I2, A) ) ' )  NB, '  -  number  of  bending  modes', 

£  NT,'  -  numk>er  of  torsion  modes', 

£  NC, '  -  number  of  chordwise  bending  modes', 

£  NF, '  -  number  of  fore-£-aft  modes' 

WRITE(2,  '  (F4.2,A) ')  TRATIO,  '  -  NACA  airfoil  thic)tness  ratio' 

WRITE (2,*)  '  Exact  angle  calculation  -',LATAN 
WRITE (2,*)  '  Cubic  stiffening  -',LCUBE 
IF  (.NOT.LCUBE)  KTTCUBE  -  0. 

WRITE (2,*)  '  Linear  aerodynamics  -'.LINEAR 

WRITE(2,*)  '  Spanwise  lift  correction  -'.CORREC 
WRITE(2,*)  '  Finite  span  lift  reduction  -',REDUC 
WRITE (2,*)  '  Steady  test  case  (no  flutter)  -’.STEADY 
IF  ((.not. STEADY)  .AND. ( (ATYPE.EQ.O)  .OR. (ATYPE.EQ.l) ) ) 

£  NRITE(2,*)  '  Unsteady  analysis  type  -'.ATYPE, 

£  '  (see  listing  of  COEFS.FOR)' 

IF  ( .NOT. STEADY)  WRITE (2,*)  ’  Constant  coeffs  in  '// 

£  'unsteady  analysis  -'.LCONST 
WRITE (2,*)  '  Geometric  structural  nonlinearities  -'.LGEOM 
WRITE(2, ' (A, 1PE6.0E1) ')  '  N-R  max  allowable  step  size  -',SMAX 
WRITE(2, ' (A, 1PE6.0E1) ')  '  N>R  max  allowable  residual  -',RMAX 
WRITE (2, ' (A, IS) ' )  '  Max  number  of  iterations  -',LMAX 

Read  in  the  start  £  end  values  and  the  incremental  step  size 
between  each  line  of  either  (i)  constant  velocity  or 
(ii)  constant  root  angle  of  attac)c. 

IF  (VLINES)  MRITE(*, ' (A,$) •)  '  Velocity  start,  end,  ’// 

£  '£  step  size  (m/s)  ?  ' 

IF  (.NOT. VLINES)  WRITE ( *, ' (A, S) ’ )  '  Root  angle  start,  '// 

£  'end,  £  step  size  (deg)  ?  ' 

READ(*,*,ERR-70)  DUMILO.DUMIHI.DUMIINC 
IF  ((OOMILO.LT.O.) .OR. (DUMIHI.LT.O.) )  GOTO  70 
IF  {((DUM1HI-DUM1L0)/DUM1INC) .LT.O.)  GOTO  70 

Write  header. 


IF  (.NOT.LNEWT)  THEN 
IF  (STEADY)  THEN 

WRITE(2, ' (/A,$) ')  • 

IF  (NF.EQ.O)  NRITE(2, 
IF  (NF.GT.O)  WRITE (2, 
WRITE(2,  * (A,S) ’)  • 

IF  (NF.EQ.O)  NRITE(2, 
IF  (NF.GT.O)  NRITE(2, 


vel 

AOA 

H  avg 

A  avg 

•  (A)  •) 

,  I 

•  (A)  •) 

'  V 

avg' 

(m/s) 

(deg) 

(cm) 

(deg) 

’ (A) •) 

1  1 

’  (A)  ') 

t 

(cm)  ’ 
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ELSEIF  (( .NOT. STEADY) .AND. (BEN_TOR.EQ. 1) )  THEN 
WRITE(2, ' (/A, S) ')  '  Vei  AOA  Freq'// 

i  '  H  avg  H  amp  A  avg  A  amp  A  phz' 

IF  (NF.EQ.O)  WRITE(2,*)  *  • 

IF  (NF.GT.O)  WRITE(2,*)  ■  V  avg  V  arap  V  phz' 

MRITE(2, • (A, S) ')  •  (m/s)  (deg)  (Hz)'// 

(  '  (cm)  (cm)  (deg)  (deg)  (deg)  ' 

IF  (NF.EQ.O)  WRITE(2,*)  '  ' 

IF  (NF.GT.O)  WRITE(2,*)  '  (cm)  (cm)  (deg)' 

ELSEIF  (( .NOT. STEADY) .AND. (BEN_TOR.EQ. 2) )  THEN 
WRITE(2, ' (/A,$) ')  •  Vel  AOA  Freq'// 

&  '  H  avg  H  amp  H  phz  A  avg  A  amp' 

IF  (NF.EQ.O)  WRITE(2,*)  '  * 

IF  (NF.GT.O)  WRITE (2,*)  *  V  avg  V  amp  V  phz' 

WRITE(2, ' (A, S) ')  '  (m/s)  (deg)  (Hz)'// 

£  '  (cm)  (cm)  (deg)  (deg)  (deg) ' 

IF  (NF.EQ.O)  WRITE(2,*)  *  ' 

IF  (NF.GT.O)  WRITE(2,*)  '  (cm)  (cm)  (deg)' 

ENDIF 
END  IF 
C 

C  Initialize  state  vectors. 

C 

DO  80  I  -  1, MAXMODE 
DO  80  J  -  1,3 

QLIT(I,J)  -  0. 

QALL( (I-l) -a+J)  -  0. 

80  CONTINUE 

C 

LFLUTB  -  .FALSE. 

IF  (( .NOT. STEADY) .AND. (DUMILO.NE.DUMIHI) )  THEN 
90  WRITE (•, ' (A, $) ' )  '  Flutter  boundary  analysis  ?  ' 

READ(*, ' (A) ',ERR-90)  ANSWER 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  LFLUTB-  .TRUE. 

ENDIF 

C 

C  Loop  through  each  line  of  either  (i)  constant  velocity  or 
C  (ii)  constant  root  angle  of  attacic,  denoted  by  the  dummy 
C  variable  DUMMYl . 

C 

DO  999  DUMMYl  -  DUMILO, DUMIHI , DUMl INC 
IF  (STEADY)  THEN 
FREQ  -  0. 

INCLUDE  STEADY. INC 
ELSE 

INCLUDE  UNSTEADY. INC 
ENDIF 
999  CONTINUE 
CLOSE (2) 

IF  (LSTART)  CLOSE (3) 

STOP 

END 

C - FILE:  STEADY.  INC - - - 

C 

RGEOH  -  1. 

C 

C  Set  the  velocity  VEL  or  the  root  angle  of  attac)c  AOA,  depending 
C  on  whether  lines  of  constant  velocity  or  constant  angle. 

C 

IF  (VLINES)  VEL  -  DUMMYl 

IF  ( .NOT. VLINES)  AOA  -  DUMMY1»PI/180 . 

C 

C  Initialize  to  zero  the  augmented  modal  amplitude  vector  QALL, 
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and  all  the  modal  amplitudes  QLIT. 

IF  (DUMMYI.EQ.OUMILO)  THEN 
DO  1010  I  -  l.NMODES 
QLIT(I,1)  -  0. 

QALL(I)  -  QLIT(1,1) 

CONTINUE 
END  IF 

If  steady,  read  in  the  start  £  end  values  and  the  incremental 
step  size  of  the  root  angles/velocities  for  each  corresponding 
line  of  constant  velocity/ root  angle. 

IF  (VLINES)  THEN 

WRITE(*,  •  (A,F6.2,A,  $)  •)  *  VEX,  DUMMY  1, 

C  '  ;  Root  angle  start,  end,  &  step  size  (deg)  ?  ' 

ELSE 

WRITE(*, • (A,F6.2,A, $) •)  *  AOA  DUMMY 1, 

£  '  ;  Velocity  start,  end,  £  step  size  (m/s)  ?  ' 

ENDIF 

R£AD(*, *,ERR-1020)  DUM2L0,DUM2HI,DUM21NC 
IF  ((, NOT. VLINES) .AND. (DUM2LO.lt. 0.))  GOTO  1020 
IF  ((. NOT. VLINES) .AND. (DUM2HI.lt. 0.))  GOTO  1020 
IF  ((DUM2HI-OUM2LO)/DUM2INC.LT.O.)  GOTO  1020 

Read  in  the  non-dimensional  step  size  relaxation  factor  to 
be  applied  to  the  corrections  in  the  Newton-Raphson  solver. 

FACTOR  -  1. 

IF  ( (DUMMYI.EQ.DUMILO) .AND. (LGEOM) )  THEN 
NRITE(*, ' (A,$) ')  •  Relaxation  factor  ?  ' 

READ(*,*,ERR-1025)  FACTOR 

IF  ((FACTOR. LE.O.) .OR. (FACTOR. GT.l.))  GOTO  1025 
ENDIF 

Loop  through  the  appropriate  variable,  denoted  by  the  duniny 
variable  DUMMY2,  for  each  line  of  constant  velocity/ root  angle. 

DO  1999  OUMMY2  -  DUM2LO, DUM2H1, DUM2INC 

Initialize  the  number  of  iterations  to  zero  and  extract  the 
appropriate  root  angle/velocity  from  the  dumny  variable  DUMMY2 . 

LOOPS  -  0 

IF  (VLINES)  AOA  -  DUMMY2 *PI/ 180 . 

IF  (.NOT. VLINES)  VEL  -  DUMMY2 

Loop  through  the  Newton-Raphson  scheme  until  it  is 
converged  to  an  acceptable  limit. 

CONVERGED  *  .FALSE. 

DO  miXLE  (.NOT. CONVERGED) 

Extract  the  modal  amplitudes  from 
the  augiaanted  modal  amplitude  vector. 

DO  1030  Z  -  l,m«>DES 
QLIT(Z,1)  -  QALL(I) 

CONTINUE 
LOOPS  -  LOOPS-*-! 

Write  current  values  of  inputs  to  residual  calculations. 
FORMAT  (/A7,I5,12X, 13(4X,A2,4X)) 
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FORMAT  (A23, 13 (1PE10.2) ) 

IF  (LNEWT)  THEN 

WRITE(2, 1040)  •  LOOP  LOOPS, 

4  (MLABEL ( I ) , I-l , NMODES ) 

WRITE (2, 1045)  '  Avg  modal  amp  [m]  : 

4  (QLIT (I, 1) , I-l, NMODES) 

ENDIF 

Calculate  the  residuals  from  subroutine  RESIDUAL,  which 
are  functions  of  the  velocity  VEL,  root  angle  of  attac)c  AOA, 
reduced  frequency  FREQ,  and  modal  amplitudes  QLIT. 

CALL  RESIDUAL  (VEL, AOA, FREQ, QLIT, RGEOM, RES, QBIG) 

IF  (LNEWT)  WRITE  (2, 1045)  *  A vg  modal  Qs  (ND)  :  ', 

4  (QBIG ( I, 1) , I-l, NMODES) 

IF  (LNEWT)  WRITE (2, 1045)  '  Avg  residuals  (ND) ;  ', 

4  (RES (I)  ,  I-l, NMODES) 

Calculate  the  derivative  matrix  of  the  residuals  wrt  the 
modal  aitplitudes  using  subroutine  R_REDIV,  which  is  a 
function  of  the  velocity  VEL,  root  angle  of  attack  AOA, 
reduced  frequency  FREQ,  and  modal  amplitudes  QLIT.  The 
current  values  of  the  residuals  RES  are  also  passed  since 
the  derivative  matrix  may  be  calculated  numerically,  in 
which  case  the  current  values  are  needed. 

CALL  R_DERIV (BEN_TOR, VEL, AOA, FREQ, QLIT, RES, RGEOM, DRDQ) 

Write  derivative  matrix. 

IF  (LNEWT)  THEN 

WRITE (2, • (/A) •)  •  NUMERIC  dR/dq  MATRIX  : • 

WRITE (2, • (12X, 13(6X, I1,3X)) ')  (I, I-l, NMODES) 

DO  1050  J  -  1, NMODES 

WRITE (2, ' (4X,A8,13(1PE10.2) ) ’) 

4  'dR/dq'//MLABEL(J) //’O', (DRDQ(I,J) , I-l, NMODES) 

CONTINUE 
ENDIF 

Apply  the  Ne%fton-Raphson  scheme  to  figure  the  appropriate 
linear  correction  in  the  state  vector  so  as  to  drive  the 
appropriate  residuals  to  zero.  For  the  steady  case,  only 
the  steady  amplitudes  need  to  be  corrected. 

CALL  SOLVE(DRDQ,RES,OQALL,3*MAXMODE,l, NMODES) 

IF  (LNEWT)  WRITE(2, ' (/A,13(1PE10.2)) ') 

4  '  DELTA  avg  amps  [m]  :  ', (-DQALL (I) , I-l, NMODES) 

Update  the  augmented  state  vector,  at  the  same  time 
chec)(lng  for  convergence  of  the  maximum  residual  and 
of  the  relative  change  in  the  state  vector  QALL. 

CONVERGED  -  .TRUE. 

RESMAX  -  0. 

DO  1060  X  -  1, NMODES 

QALL (I)  -  QALL(I) -DQALL(I) ‘FACTOR 

Chec)c  relative  change  in  state  vector. 

IF  (QALL(I) .NE.O.)  THEN 

IF  (ABS(DQALL(I) /QALL(I) ) .GT.SMAX) 

4  CONVERGED- . FALSE . 

ENDIF 
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Checlc  relative  size  of  residuals. 

IF  (ABS (RES (I) /QBIG<I, 1) ) .GT.RMAX)  CONVERGED- . FALSE . 

IF  (ABS(RES(I) ) .GT.ABSCRESMAX) )  RESMAX-RES (I) 

CONTINUE 

IF  (LOOPS.GE.ABS(LMAX))  THEN 
IF  (LMAX.LT.O)  THEN 

WRITE ( *, ' (A, $) ' )  *  Continue  iterations  ?  ' 

REAO(*, ' (A) ',ERR«1065)  ANSWER 
CONVERGED- . TRUE . 

IF  ( (ANSWER. EQ. 'Y*) .OR. (ANSWER. EQ, 'y') )  THEN 
CONVERGED  -  .FALSE. 

LOOPS  -  0 
ENDIF 
ELSE 

CONVERGED- . TRUE . 

ENDIF 

ENDIF 

Print  current  status  to  screen. 

FORMAT  (A,F6.2,A, I4,A, 1PE8.1) 

IF  (VLINES)  WRITE(*, 1070)  •  STEADY  -  AOA 
OUMMy2,'  deg  ;  Loop* , LOOPS, '  ;  Rsax  -  ',RESMAX 
IF  (.NOT. VLINES)  WRITE (*, 1070)  ’  STEADY  -  VEL 
DUMMY2, '  m/s  ;  Loop LOOPS, '  ;  Rmax  -  ',R£SMAX 

IF  (LSTART)  THEN 

DO  1075  1  -  l,NMODES 
QLIT(I,2)  -  0. 

QLtT(I,3)  -  0. 

CONTINUE 

WRITE (3,*)  AOA* 180. /PI, VEL, 0., ( (QLIT (1,  J) ,  J-1,  3) , 

I-l , NMODES ) , RESMAX 
ENDIF 
END  DO 

Extract  the  modal  angilitudes  from  the  final,  converged 
augmented  state  vector. 

DO  1080  I  -  I, NMODES 
QLIT(I,1)  -  QALL(I) 

CONTINUE 
FREQ  -  0. 

Calculate  the  midchord  tip  deflection  components  and  the  tip 
twist  components. 

BTIP(l)  -  0. 

ATXP(l)  -  0. 

DO  1090  I  -  1,NB>NT+NC 

BT1P<1)  -  HTIP(l)+QLIT(I,l)*rMODE(0, 'X',!,!.)* 
rMODE(0,  'YM,0.) 

ATIP(l)  -  ATIP(1)+QLIT(I,1)  *FMODE(0, ’XM,!.)  * 

FMODEd,  'Y',  1,0.) /CHORD 
CONTINUE 

VTIPd)  -  0. 

IF  (NF.Crr.O)  THEM 

DO  1100  I  -  NB+NT+NC+1,NB+NT+NC+NF 

VTIPd)  -  VTIPd)+QLITd,l)*FMODE(0, 'X',I,1.)* 

FMODE(0, 'Y',I,0,) 

CONTINUE 


END  IF 
C 

C  Convert  tip  deflection  to  centimeters  and  tip  twist  to  degrees. 

C 

IF  (LATAN)  ATIPCl)  -  ATAN (ATIP ( 1) ) 

HTIP  (1)  -  HTIP (1) *100. 

ATIP(l)  -  ATIP (1) *180 ./PI 
VTIP(l)  -  VTIPd)  *100. 

C 

C  Write  converged  results. 

C 

ANG  -  AOA*180./PI 
IF  (LNEWT)  THEN 

WRITE  (2,  '  (/A,  15,  A)  •)  '  After  SLOOPS,  '  N-R  iterations 
DO  1110  I  -  l,NMODES 

WRITE(2,*)  '  Avg  • ,MLABEL(I) , *  amp  - ' , QLIT ( I, 1) , '  m* 

1110  CONTINUE 

WRITE(2,*)  '  H  tip  -SHTIPd),'  cm’ 
writE(2,*)  '  A  tip  -•,ATIPd),’  deg' 

WRITE(2,*)  •  V  tip  VTIPd),'  cm' 

WRITE{2,*)  '  AOA-',ANG,'  degs ' 

WRITE(2,*)  '  VEL  -’,VEL, '  m/s' 

ELSE 

WRITE (2, ' (2F7.2,2F9.3,$) ')  VEL, ANG, HTIP d)  , ATIP (1 ) 

IF  (NF.GT.O)  WRITE(2,  '  (F9.3,$) ')  VTIPd) 

IF  (LOOPS.LT.ABS{LMAX) )  WRITE (2, ' (A) ’ )  '  ' 

IF  ( LOOPS. EQ. ABS (LMAX) )  WRITE (2,  ’  (A)  ' ) 
t  '  *  Not  converged  ' 

ENDIF 
1999  CONTINUE 

C - FILE:  UNSTEADY.  INC  - 

C 

C  Calculate  mode  number  associated  with  BEN^TOR  variable,  i.e. 

C  either  first  bending  (#1)  or  first  torsion  (#NB+1) . 

C 

MBT  -  (BEN_TOR-l) *NB  +  1 
C 

C  Set  the  velocity  VEL  or  the  root  angle  of  attac)c  AOA,  depending 
C  on  whether  lines  of  constant  velocity  or  constant  angle. 

C 

IF  (VLINES)  VEL  -  DUMMYl 

IF  ( .NOT. VLINES)  AOA  -  DUMMYl *PI/180 . 

C 

C 

C  If  unsteady,  read  in  the  start  t  end  values  and  the  incremental 

C  step  size  of  the  aaplitude  of  oscillating  twist  for  each 

C  line  of  constant  velocity/ root  angle. 

C 

IF  ( (DUMMYl. EQ.DUMILO) .OR. ( .NOT.LFLUTB) )  THEN 
2010  Xr  (BEM_TOR.EQ.l)  THEN 

IF  (VLINES)  WRITE(*, ' (A,F5.1,A,$) ’)  ’  VEL  -', DUMMYl , 
a  '  ;  Bending  amplitude  start,  end,  4  step  size  (cm)  ?  ' 

IF  (.NOT. VLINES)  WRITE (*, ' (A, F5 . 1, A, S) ' )  '  AOA-', 

4  DUMMYl,'  ;  Bending  amplitude  start,  end,  4  step  '// 

4  'size  (cm)  7  ' 

ELSE 

IF  (VLINES)  WRITE(*, ’ (A,F5.1,A,$) ')  '  VEL  -', DUMMYl , 

4  '  ;  Twist  amplitude  start,  end,  4  step  size  (deg)  ?  ' 

IF  (.NOT. VLINES)  WRITE (*, ' (A, F5 . 1, A, $) ' )  '  AOA-', 

4  DUMMYl,'  ;  Twist  amplitude  start,  end,  4  step  '// 

4  'size  (deg)  ?  ' 

ENDIF 

READ(*, *,ERR-2010)  DUM2LO, DUM2HI, DUM2INC 
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IF  ( < .NOT.VLINES) .AND. (DUM2LO.LT.O . ) )  GOTO  2010 
IF  {( .NOT.VLINES) .AND. (DUM2HI.LT.0. ) )  GOTO  2010 
IF  ( (DUM2HI-DUM2LO) /DUM2INC.LT.0.)  GOTO  2010 
END  IF 
C 

C  Determine  if  previoua  values  should  be  used  as  an  initial  guess. 

C 

IF  (DUMMYl .EQ.DUMILO)  THEN 
ANSWER  -  'N' 

ELSEIF  (LFLUTB)  THEN 
ANSWER  -  'Y' 

ELSEIF  ( .NOT. LFLUTB)  THEN 

2020  WRITE (•,' <A, $)' )  '  Use  previous  values  as  '// 

&  'initial  guess  ?  ' 

READ(*, ' (Al) •,ERR-2020)  ANSWER 
END  IF 
C 

IF  ( <ANSWER.NE. 'Y' ) .AND. (ANSWER. NE. 'y') )  THEN 
C 

C  Read  in  the  initial  guess  for  root  angle  AOA,  or  for 

C  velocity  VEL  -  to  be  used  for  the  first  iteration  of  the 

C  Newton-Raphson  solver  for  the  first  corresponding  line 

C  of  constant  velocity/root  angle  —  and  insert  in  location 

C  reserved  for  sine  harmonic  of  bending/twist  amplitude. 

C 

2021  WRITE(*, ' (A, $) •)  •  Start  from  restart  file  ?  ' 

READ(*, ' (A) ',ERR-2021)  ANSWER 

C 

QLIT(1,1)  -  0. 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  THEN 

2022  WRITE(*, • (A, $) ')  •  Restart  filename  ?  ' 

REAO(*, ' (A) ',ERR-2022)  FILENAME 

OPEN (UNIT-4,  FILE-FILENAME, STATUS- ’ OLD ' , 

«  FORM-' FORMATTED ',ERR-2 022) 

2023  READ (4, *,ERR-2022, END-2029)  AOADUM,VELDUM,FRQDUM, 

6  (  (QDUMd,  J)  ,  J-1,3)  ,  I-l,NMODES) 

IF  (( (VLINES) .AND. (DUMMYl. EQ.VELDUM) ) .OR. 

«  ((.NOT.VLINES) .AND. (DUMMYl. EQ.AOADUM)))  THEN 

DO  2025  I  -  l,NMODES 
DO  2025  J-1,3 

QLIT(I,J)  -  QDUM(I,J) 

QALL((J-l)*NMODES-'-I)  -  QLIT(I,J) 

2025  CONTINUE 

IF  (VLINES)  THEN 

AOA  -  AOADUM*PI/180. 

QALL(MMOOES>MBT)  •  AOA 
ELSE 

VEL  -  VELOUN 

QALL(NMOOES'»-MBT)  -  VEL* *2 
ENDIF 

2026  IF  (FRQOUM.LE.O.)  THEN 

NRXTE(*, ' (A, $) ' )  '  Initial  frequency  guess  '// 

6  ' (in  Hz)  ?  ' 

READ(*, •,ERR-2026)  FRQDUM 
GOTO  2026 
ENDIF 

FREQ  -  FRQDUM*2.*PI*(CHORD/2.)/VEL 
QALL(2*NMODES-»-MBT)  -  FREQ 
ENDIF 
GOTO  2023 

2029  CLOSE(4) 

IF  (QLITd,  1)  .EQ.O.)  GOTO  2021 
ELSE 
C 
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IF  (VLINES)  THEN 

2030  WRITE <*, ’ (A, S) ' )  '  Initial  root  angle  guess  (deg)  ?  ' 

R£AD(*, *,ERR-2030)  AOA 
AOA  -  AOA*PI/180. 

QAI,L{NMODES+MBT)  -  AOA 
ELSE 

2040  WRITE (•, ' (A, S) ' )  '  Initial  velocity  guess  (m/s)  ?  ' 

READ(*, *,ERR-2040)  VEL 
IF  (VEL.LT.O.)  GOTO  2040 
QALL(NMODES+MBT)  -  VEL**2 
ENDIF 
C 

C  Query  user  if  he  wants  to  directly  input  the  initial  average 

C  amplitudes  (eg.  might  be  needed  if  flutter  is  near  the 

C  divergence  velocity) . 

C 

WRITE (*, * (A, $) ' )  '  Input  initial  average  deflections  ?  ' 
READ(*, ' (Al) ')  ANSWER 
DO  2060  1  -  l,NMODES 

IF  (DUMMYI.EQ.DUMILO)  QLIT(I,1)  -  0, 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y' ) )  THEN 
2050  WRITE{*, * (A, $) •)  •  Mode  * //MLABEL(I) // 

£  '  average  [m]  -  ' 

READ(*, *,ERR-2050)  QLIT(I,1) 

ENDIF 

QALL(I)  -  QLIT(I,1) 

2060  CONTINUE 

C 

2070  WRITE (*, ' (A, $) ' )  '  Start  vibration  on  eigenmode  ?  ' 

READ(*, • (A) •,ERR-2070)  ANSWER 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  THEN 
C 

C  Determine  current  nonlinear  mass  i  stiffness  matrices. 

C 

DO  2073  II  -  1, MAXMODE 

DO  2073  12  -  II, MAXMODE 

MDUM(I1,I2)  -  M(I1,I2) 

KDUM(I1,12)  -  K(I1,I2) 

C 

C  Add  corrections  to  stiffness  matrix  for  geometric 

C  nonlinearities. 

C 

IF  (LGEOM)  THEN 

IF  ( (Il.GT.NB) .AND. (Il.LE.NB+NT) .AND. 

«  (I2.GT.NB) .AND. (I2.LE.NB+NT) )  THEN 

DO  2071  13  -  1,NB 
DO  2071  14  -  1,NB 

KDUM(I1,I2)  -  KDUM(I1,I2)  + 

£  R(I3, 14, Il-NB, I2-NB) *QLIT(I3, 1) *QLIT(I4, 1) 

2071  CONTINUE 

ELSBIF  ( (Il.GT.NB)  .AND.  (II .  LE  .NB-t-NT)  .AND. 

£  (I2.GT.NB+NT+NC) .AND. (I2.LE,NB+NT+MC+NF) )  THEN 

DO  2072  13  -  1,NB 

KDUM(ri,12)  -  KDUM(I1,I2)  + 

£  H (13, Il-NB, I2-NB-NT-NC)*QLIT (13,1) 

2072  CONTINUE 
ENDIF 

ENDIF 

C 

MDUM(I2,I1)  -  MDUM(I1,I2) 

KDUM(I2,I1)  -  KDUM(I1,I2) 

2073  CONTINUE 
C 

C  Add  contribution  to  stiffness  matrix  for  cubic  stiffening. 


c 


c 

c 

c 
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2076 
C 

2077 


C 

C 
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« 
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2078 

C 

c 

c 


c 

c 

c 


2080 


C 

C 

c 


KDUM(NB+l,NB-t-l)  -  KDUM(NB+1,NB+1)  +  KTTCUBE* 
(3.*QLIT(NB+1, 1) **2+.75*QLIT(NB+l,2) **2+ 
.75*QL1T(NB+1, 3) **2) 

Call  EISPACK  eigenvalue  solver. 

CALL  RSG (MAXMODE, NMODES,KDUM,MDUM, FVIB, 1,QVIB, 

FV1,FV2, lERR) 

Print  out  choice  of  eigeniaodes  to  start  from  (negative 
frequency  to  indicate  imaginary) . 

DO  2076  X  -  l,NMODES 
QMAX  -  QVIBd,  I) 

DO  2075  J  -  l.NMODES 

IF  (ABS(QVIB(J, I)) .GT.ABS(QMAX) ) 

QMAX  -  QVIB(J,I) 

CONTINUE 

WRITE(*, ' (5X,I2,A,F9.2,A,SP,32(1X,F4.1)) ') 

I,'  Freq  - ' , SQRT (ABS :FVIB (I) > ) / (2 . ‘PI) * 
(FVIB(I)/ABS(FVIB(I))), •  Hz  ;  mode  shape  - 
(QVIB(J, I) /QMAX, J-l,NMODES) 

CONTINUE 

WRITE (*, ' (/A, $) ' )  '  Starting  eigenmode  number  ?  ' 
READ(*, *,ERR-2077)  lEIG 

IF  ( (lEIG-LE.O) .OR. (lEIG.GT.NMODES) )  GOTO  2077 

Initialize  amplitudes  of  vibration. 

TWIST  -  DUM2LO*PI/180. 

DEFLC  -  OUM2LO/100. 

DO  2078  I  -  l,NMOOES 

IF  (BEN  TOR.EQ.l)  QLIT(I,2)  -  DEFLC/ 

FMODE (7, 'X',MBT,1.)/FMODE(0, •Y',MBT,0.>* 

QVIB ( I , lEIG) /QVIB (MBT, lEIG) 

IF  (BEN_TOR.EQ.2)  QL1T(I,2)  -  TAN (TWIST) “CHORD/ 
FMODE(0, 'X',MBT,1.)/FTODE(1, •Y',MBT,0.)* 

QVIBd,  lEIG)  /QVIB (MBT,  lEIG) 

IF  (I.NE.MBT)  QALL(NMODES-d)  -  QLIT(I,2) 

QLIT(I,3)  -  0. 

IF  (I.NE.MBT)  QALL{2*NMODES+I)  -  QLIT(I,3) 

CONTINUE 

Initialize  reduced  frequency. 

FREQ  -  SQRT (FVIB (lEIG))* {CHORD/2. )/VEL 
QAU.(2“NMODES>MBT)  -  FREQ 
ELSE 

Initialize  reduced  frequency. 

IF  (DUMflri.NB.OUMlLO)  WRITE(*,*)  '  Current  frequency 
FREQ*VEL/ (2. *PI* (CHORD/2. )), ’  Hz' 

WRITE  (“,.' (A,  $)  ' )  '  Initial  frequency  guess  (in  Hz)  ?  ' 

R£AD(“,*,ERR-2080)  FREQ 

IF  (FREQ.LE.O.)  GOTO  2080 

FREQ  -  FREQ*2. *P I* {CHORD/2.) /VEL 

QALL{2*NMOOES-l-MBT)  -  FREQ 

Initialize  the  oscillating  amplitudes  to  zero. 

DO  2085  J  -  2,3 


DO  2085  I  -  l,NMODES 
QLIT(I,J)  -  0. 

IF  (I.NE.MBT)  QALL(NMODES* (J-1) +1)  -QLIT(I,J) 

2085  CONTINUE 

ENDIF 
ENDIF 
ENDIF 
C 

C  Read  in  the  non-dimensional  step  size  tolerance  [maximum 

C  delta (X)/X]  to  be  applied  to  the  root  angle/velocity  and 

C  frequency  corrections  in  relaxing  the  Newton-Raphson  solver. 

C 

IF  ( (DUMMYI.EQ.DUMILO) .OR. (.NOT.LFLUTB) )  THEN 
2090  WRITE (*, ' (A, $) ' )  '  Step  size  tolerance  ?  ' 

READ(*, *,ERR-2090)  TOL 
IF  (TOL.LE.O.)  GOTO  2090 
ENDIF 
C 

DO  2999  JGEOM  -  0,IGEOM 
RGEOM  «  1. 

IF  ( (LGEOM) .AND. (IGEOM.GT.O) )  THEN 
RGEOM  -  REAL (JGEOM) /REAL (IGEOM) 

WRITE<*, • (A,F4 .3) ' )  ‘RGEOM-  *, RGEOM 
ENDIF 
C 

C  Loop  through  the  appropriate  variable,  denoted  by  the  dummy 
C  variable  DUMHy2,  for  each  line  of  constant  velocity/ root  angle. 
C 

DO  2999  DUMMY2  -  DUM2LO, DUM2HI, DUM2 INC 
C 

C  Initialize  the  number  of  iterations  to  zero. 

C 

LOOPS  -  0 
C 

C  Initialize  convergence.  If  zero  velocity,  automatically  set 

C  all  angslitudes  to  zero  and  sicip  Newton-Raphson  solver. 

C 

CONVERGED  -  .FALSE. 

IF  ( ( .NOT.VLINES) .AND. (DUMMY2.EQ.0. ) )  THEN 
DO  2100  I  -  l,NMODES 
QLIT(I,1)  -  0. 

QALL(I)  -  0. 

2100  CONTINUE 

CONVERGED  -  .TRUE. 

ENDIF 

C 

C  Rescale  unsteady,  variable  amplitudes  from  previous  values 

C  according  to  new  set  amplitude. 

C 

DO  2110  I  -  l,NMODES 
DO  2110  J  -  2,3 

IF  ( (I.NE.MBT) .AND. (DUMKY2.NE.DUM2LO) )  QALL(NMODES* 
t  <J-l)+I)-QALL(NMODES* (J-l)+I) •DUMMY2/ (DUMMY2-DUM2INC) 

2110  OXITINUB 

C 

C  Loop  through  the  Newton-Raphson  scheme  until  it  is 

C  converged  to  an  acceptable  limit . 

C 

DO  WHILE  ( .NOT. CONVERGED) 

C 

C  Extract  the  modal  amplitudes  from 

C  the  augmented  modal  amplitude  vector. 

C 
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DO  2120  I  -  l,NMODES 


ooo  ooooo  N>  non  o  oooo  nooo  oooooo 


DO  2120  J  -  1, 3 

QLIT(I,J)  -  QALL(NM0DES*<J-1)+I) 

2120  CONTINUE 

Extract  current  value  of  unknown  root  angle/velocity 
from  the  augmented  state  vector  QALL,  appropriate  to  lines 
of  constant  velocity  or  root  angle.  Set  velocity  to 
zero  if  Netfton-Raphson  solver  drives  VEL**2  below  zero. 

IF  (VLINES)  THEN 

AOA  -  QALL(NMODES+MBT) 

ELSEIF  (QALL(NMODES+MBT) .GT.O.)  THEN 
VEL  -  SQRT(QALL(NM00ES-»-MBT)  ) 

ELSE 

QALL(NMODES+MBT)  -  0. 

VEL  -  0. 

END  IF 

Extract  current  value  of  the  unknown  reduced  frequency 
from  the  augmented  state  vector  QALL. 

FREQ  -  QALL(2*NMODES+MBT) 

Extract  the  desired  twist  oscillating  amplitudes  from 
the  dummy  variable  OUMMY2 . 

TWIST  -  DUMMY2*PI/180. 

DEFLC  -  DUMMY2/100. 

IF  (BEN  TOR.EQ.l)  QLIT(MBT,2)  -  DEFLC/ 

&  FM0DE(7, 'X',MBT,1.)/FMODE(0, 'Y',MBT,0.) 

IF  (BEN  TOR. EQ. 2)  QLIT(MBT,2)  -  TAN (TWIST) ‘CHORD/ 

«  FM0DE(7, 'X',MBT,l.)/FMODE(l, ’Y’,MBT,0.) 

QLIT(MBT,3)  -  0. 

LOOPS  -  LOOPS+1 

Write  current  values  of  inputs  to  residual  calculations. 

IF  (LNEWT)  THEN 

WRITE(2, • (/A,I4,11X, 13{4X,A2,4X)) •)  '  LOOP  - 
&  LOOPS, (HLABEL(I),I-l,NMOOES) 

DO  2130  J  -  1,3 

IF  (J.EQ.l)  WRITE(2, • (A,$) ’)  '  Avg  ' 

IF  (J.EQ.2)  WRITE(2, • (A,$) ')  *  Sin  ' 

IF  (J.EQ.3)  WRITE(2, • {A,S) ’)  '  Cos  ' 

NRITE(2, ' (A,13(1PE10.2) ) ')  'model  amp  :  ', 
t  (QLITd,  J)  ,I-l,NMODES) 

CONTINUE 

WRITE (2,  *)  '  VEL  -•,VEL, '  ra/s' 

WRITE(2,*)  •  AOA  - ' , AOA*180 . /PI,  '  dags' 

WRITE (2,*)  '  k  -',FREQ 

OMEGA  -  FREQ*VEL/ (CHORD/2.)/ (2. *PI) 

WRITE(2,*)  '  w-', OMEGA,'  Hz' 

ENDIF 

Calculate  the  residuals  from  subroutine  RESIDUAL,  which 
are  functions  of  the  velocity  VEL,  root  angle  of  attack  AOA, 
reduced  frequency  FREQ,  and  modal  amplitudes  QLIT. 

CALL  RESIDUAL (VEL, AOA, FREQ, QLIT, RGEOM, RES, QBIG) 

Write  current  values  of  residuals. 

IF  (lnewt;  then 
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DO  2140  J  -  1,  3 

IF  (J.EQ.l)  WRITE  (2,  •  (/A,  S)  '  )  '  Avg  ■ 

IF  (J.EQ.2)  WRITE(2, • (A, $) ' )  ’  Sin  ’ 

IF  (J.EQ.3)  WRITE(2, • (A, S) ')  '  Cos  ' 

WRITE(2, ' (A,13(1PE10.2)) •>  'modal  Qs  : 
i  (QBIGd,  J)  ,  I-l,NMODES) 

2140  CONTINUE 

DO  2145  J  -  1,3 

IF  (J.EQ.l)  WRITE(2, •  (/A,  $)  •)  '  Avg  ' 

IF  (J.EQ.2)  WRITE(2, • (A,$) •)  '  Sin  ' 

IF  (J.EQ.3)  WRITE(2, • (A, $) ')  '  Cos  ' 

WRITE(2, ’ (A, 13(1PE10.2) ) •)  'residuals  :  ', 

£  (RES(I) , I-(J-l)*NMODES+l, J*NMODES) 

2145  CONTINUE 

END  IF 

Calculate  the  derivative  matrix  of  the  residuals  wrt  the 
modal  amplitudes  using  subroutine  R_REDIV,  which  is  a 
function  of  the  velocity  VEL,  root  angle  of  attac)c  AOA, 
reduced  frequency  FREQ,  and  modal  amplitudes  QLIT.  The 
current  values  of  the  residuals  RES  are  also  passed  since 
the  derivative  matrix  may  be  calculated  nunverically,  in 
which  case  the  current  values  are  needed. 

CALL  R_DERIV(BEN_TOR,  VEL,  AOA,  FREQ,  QLIT,  RES,  "'GtOM,  DRDQ) 

Write  derivative  matrix. 

IF  (LNEWT)  THEN 

WRITE(2, ' (/A) ')  '  NUMERIC  dR/dq  MATRIX  :' 

WRITE(2, ' (12X,99(6X,  II, 3X) )  ') 

£  ( (I, I-l,NMODES) , J-1, 3) 

DO  2160  11-1,3 
DO  2160  12  -  l,NMODES 

IF  (Il.EQ.l)  CDUM  -  'dR/dq'//MLABEL(l2>//'o' 

IF  (I1.EQ.2)  CDUM  »  ’dR/dq'//MLABEL(l2)//'s' 

IF  (I1.EQ.3)  CDUM  «  •dR/dq'//MLABEL(l2) // 'c' 

IF  ((I1.EQ.2) .AND. (I2.EQ.MBT) )  THEN 
IF  (VLINES)  CDUM  -  '  dR/dAOA' 

IF  ( .NOT. VLINES)  CDUM  -  '  dR/dV*2 ' 

ELSEIF  ((H.EQ.3)  .AND.  (I2.EQ.MBT))  THEN 
CDUM  -  •  dR/d)t' 

END  IF 

J  -  (Il-l) *NMODES+I2 

WRITE (2, ' (4X,A8, 13 ( IPEIO .2) ) ' ) 

£  CDUM,  (DRDQd,  J)  ,  I-l,  3*NMODES) 

160  CONTINUE 

ENDZF 

Apply  the  Newton-Raphson  scheme  to  figure  the  appropriate 
linenr  correction  in  the  state  vector  so  as  to  drive  the 
appropriate  residuals  to  zero.  For  the  steady  case,  only 
the  steady  amplitudes  need  to  be  corrected. 

CALL  SOLVE (DRDQ, RES, DQALL, 3*MAXMODE, 1, 3*NMODES) 

Write  the  uncorrected  state  vector  corrections. 

IF  (LNEWT)  THEN 
DO  2165  1-1,3 

IF  (I.NE.l)  RDUM  -  DQALL {( I-l) *NMODES+MBT) 

IF  (I.NE.l)  DQALL ( (I-l) ‘NMODES+MBT)  -  0. 

IF  (I.EQ.l)  WRITE(2, ' (/A,$) ')  '  DELTA  avg  ' 

IF  (I.EQ.2)  WRITE(2, ' (A,S) ')  '  DELTA  sin  ' 
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C 

C 

c 

c 
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C 

C 

C 

C 

c 


c 

c 
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c 
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2180 

C 

C 

C 


2190 


IF  (I.EQ.3)  WRITE(2, • (A, $) •)  '  DELTA  cos  • 

WRITE(2, ' (A, 13<1PE10.2) ) •)  'amps  [m]  : 

(-DQALL(J) , J-(I-l) •NMODES+1, I*NMODES) 

IF  (I.NE.l)  DQALL( (I-l) *NMODES+MBT)  -  RDUM 
CONTINUE 

IF  (VLINES)  WRITE (2,*)  '  DELTA  AOA 
-DQALL (NMODES+MBT) , •  deg* 

IF  ( .NOT. VLINES)  WRITE(2,*)  •  DELTA  V*2 
-DQALL (NMODES+MBT) , *  (m/s) **2' 

WRITE(2,*)  '  DELTA  )t  -  * , -DQALL  (2+NMODES+MBT) 

ENDIF 

Calculate  the  appropriate  factor  for  relaxation  when  the 
correction  step  size  is  too  large  for  either  the  root 
angle/velocity  or  reduced  frequency. 

FACTOR  -  1. 

DO  2170  I  -  1,2 

J  -  I*NMODES  +  MBT 
IF  (QALL(J) .NE.O.)  THEM 

IF  (ABS (DQALL (J) /FACTOR/QALL(J) ) .GT.TOL) 

FACTOR  -  ABS (DQALL (J) / (TOL*QALL(J) ) ) 

ENDIF 

CONTINUE 

IF  (LNEWT)  WRITE(2, • (/A,  1PE10.2)  •) 

'  FACTOR  -  FACTOR 

Update  the  augmented  state  vector,  at  the  same  time 
chec)cing  for  convergence  of  the  maximum  residual  and 
of  the  relative  change  in  the  state  vector  QALL. 

CONVERGED  -  .TRUE. 

RESMAX  -  0. 

DO  2180  I  -  l,NMODES 
DO  2180  J  -  1,3 

II  -  (J-1) ‘NMODES+I 

QALL(II)  -  QALL (II) -DQALL (II) /FACTOR 

Chec)c  relative  change  in  state  vector. 

IF  (QALL(II) .NE.O.)  THEN 

IF  (ABS (DQALL (II) /QALL (II) ) .GT.SMAX) 

CONVERGED- . FALSE . 

ENDIF 

Check  relative  size  of  residuals. 

XF  <ABS(RES(II) /QBIGd,  J)  )  .GT.RMAX)  CONVERGED- . FALSE . 
IF  (ABS (RES (II) ) .GT. ABS (RESMAX) )  RESMAX-RES ( I I ) 
CONTINUE 

Print  current  status  to  screen. 

IF  (LFLUTB)  THEN 

IF  (VLINES)  NRITEC,  '  (A,F6.2,$) ') 

'  VEL  -',DUMMY1 

IF  (.NOT. VLINES)  WRITE(*, ' (A,F6.2, S) ' ) 

'  AOA  -',DUMMyi 

ELSE 

NRITE(*,  ’  (A,F6.2,$)  •)  '  AMP  -',DU!«(Y2 
ENDIF 

FORMAT  ( A, 14 , A, 1PE8 . 1 , A, 0PF6 . 2 , A, FS . 2 , A, F4 . 2 ,  A) 

IF  (VLINES)  THEN 

WRITE (*,2190)  '  ;  Loop  ', LOOPS,'  ;  Rmax  -  ', 
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RESMAX, '  ;  AOA  - ' , QALL (NMODES+MBT) • 180 . /PI, 

'  deg  ;  w  QALL (2*NM0DES+MBT) *VEL/ (CHORD/ 

2. )  /  (2.  *PI)  ,  '  Hz  ()c-',QALL(2*NMODES+MBT)  ,  ' 

ELSE 

WRITE(*,2190)  *  ;  Loop  LOOPS,'  ;  Rmax  -  ', 

RESMAX, '  ;  VEL  SQRT (QALL (NMODES+MBT) ) , 

•  m/s;  w  QALL (2*NMODES+MBT) *VEL/ (CHORD/ 
2.)/(2.*PI),  •  Hz  ()c-*,QALL(2*NMODES+MBT)  ,  ')  ’ 
END  IF 

OMEGA  -  FREQ*VEL/ (CHORD/2.) / (2. *PI) 

IF  (LSTART)  WRITEO,*)  AOA*180  . /PI ,  VEL,  OMEGA, 

(  (QLITd,  J)  ,  J-1,  3) ,  I«l,NMODES)  ,  RESMAX 

IF  (LOOPS.GE.ABS(LMAX) )  THEN 
IF  (LMAX.LT.O)  THEN 

WRITE (*, • (A, $) ' )  *  Continue  iterations  ?  ' 
READ{*, ' (A) •,ERR-2195)  ANSWER 
CONVERGED-. TRUE. 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  THEN 
CONVERGED  -  .FALSE. 

LOOPS  -  0 

WRITE(*, ' (A,F5.4,A,$) •)  '  TOL-  •,TOL, 

'  ;  New  step  size  tolerance  ?  ' 

READ(*, *,ERR-2196)  TOL 
IF  (TOL.LE.O.)  GOTO  2196 
END  IF 
ELSE 

CONVERGED- . TRUE . 

END  IF 
END  IF 
END  DO 


Extract  the  modal  amplitudes  and  the  velocity  and  reduced 
frequency  from  the  final,  converged  augmented  state  vector. 


DO  2200  I  -  1,NMOOES 
DO  2200  J  -  1,3 

QLITd,  J)  -  QALL  (NMODES*  (J-1) +1) 
CONTINUE 


Extract  the  appropriate  root  angle/velocity, 
frequency,  and  twist  oscillating  amplitudes  from  the 
final,  converged  augmented  state  vector. 

QLIT(MBT,3)  -  0. 

IF  (BEN  TOR.EQ.l)  QL1T(MBT,2)  -  DEFLC/ 

£  rMODE(7, •X',MBT,1.)/FMODE(0, •Y’,MBT,0.) 

IF  (BEN  TOR.EQ.2)  QL1T(MBT,2)  -  TAN (TWIST) ‘CHORD/ 

£  mODE(7,  'X',MBT,l.)/FMODE(l,  •Y',MBT,0.) 

XT  (VLINES)  AOA  -  QALL (NMODES+MBT) 

IF  (.NOT. VLINES)  VEL  -  SQRT (QALL (NMODES+MBT) ) 

FREQ  -  QALL(2*NMODES+MBT) 

Calculate  the  midchord  tip  deflection  components  and  the  tip 
twist  components. 

DO  2220  J  -  1,3 
HTIP(J)  -  0. 

ATIP(J)  -  0. 

DO  2210  I  -  1,NB+NT+NC 

HTIP(J)  -  HTTP (J) +QLIT (I, J) *FMODE (0, ’X', 1,1.)* 

£  FMODE(0, 'Y',I,0.) 

ATIP(J)  -  ATIP(J)+QLITd,  J)  *FMODE(0, 'X',  1,1.)  • 
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C 
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£  FMODEd,  ’YM.O.) /CHORD 

CONTINUE 

VTIP(J)  -  0. 

IF  (NF.GT.O)  THEN 

DO  2215  I  -  NB+NT+NC+1,NB+NT+NC+NF 

VTIP(J)  -  VTIP(J)+QLIT(I,J)*FMODE(0, 'X',!,!.)* 
&  FMODE(0, 'YM,0.) 

CONTINUE 
END  IF 


Convert  tip  deflection  to  centimeters  and  tip  twist  to 
degrees . 

IF  (LATAN)  ATIP(J)  -  ATAN (ATIP ( J) ) 

HTIP(J)  -  HTIP(J) *100. 

ATIP(J)  -  ATIP (J) *180. /PI 
VTIP(J)  -  VTIP(J)*100. 

CONTINUE 


Nrite  final/converged  results. 


ANG  -  AOA*180./PI 

OMEGA  -  FR£Q*VEL/ (CHORD/2.)/ (2. *PI) 

IF  ( ( .NOT.LNEMT) .AND. (BEN_TOR.EQ.l) )  THEN 
WRITE<2, • (3F7.2,5F9.3,$) •)  VED, ANG, OMEGA, 

C  (HTIP(J) ,J-1, 2) , ATIP (1) , SORT (ATIP (2) **2+ATIP (3) **2> , 

«  ATAN2(ATIP(2),ATIP(3)) 

IF  (NF.GT.O)  NR1TE(2, • (3F9.3,S) •)  VTlP(l), 

&  SORT (VTIP (2) **2+VTIP (3) **2) , ATAN2 (VTIP (2) , VTIP (3) ) 

IF  (LOOPS.I.T.ABS(LMAX) )  NRITE  (2,  '  (A)  ’ )  '  ' 

IF  (LOOPS.GE.ABS(LMAX))  NRITE (2, ' (A) ' ) 

&  '  *  Not  converged' 

ELSEIF  ( (.NOT.LNEMT)  .Am.  (BEN  TOR. EQ. 2) )  THEN 
NRITE(2, • (3F7.2,5F9.3,$) •)”VEL, ANG, OMEGA, 

«  HTIP (1) , SORT (HTIP (2) **2+HTIP (3) **2) , 

t  ATAN2  (HTIP  (2) , HTIP  (3) ) ,  ATIP  (1) ,  ATIP  (2) 

IF  (NF.GT.O)  NRITE(2, ’ {3F9.3,$) •)  VTlP(l), 
fi  SORT (VTIP (2) **2+VTIP (3) **2) , ATAN2 (VTIP (2) , VTIP (3) ) 

IF  (LOOPS.LT.ABS(LMAX) )  NRITE (2, ' (A) ' )  '  ' 

IF  (LOOPS.GE.ABS(LMAX) )  NRITE (2, ' (A) ' ) 


&  •  *  Not 

ELSE 

NRITE  (2,  ' 
NRITE (2, ' 
NRITE (2, • 
t  (QLXTd, 

NRITE (2, • 
i  (QLZTd, 

NRITE (2, ' 
I  (QLITd, 

NRITE (2, ' 
NRITE (2, ' 
NRITE (2, ' 
NRITE (2, ' 
ENDIF 
CONTINUE 


converged ' 

(/A,I5,A)')  *  Af ter', LOOPS, '  N-R  iterations 
d6X,13(4X,A2,4X))  ')  (MLABELd) ,  I-l,NMODES) 
(A,13(1PE10.2)) ')  '  Avg  amps 

1) ,I«l,NMOOES) 

(A,13(1PE10.2)) ')  '  Sin  amps 

2) ,I-l,NMOOES) 

Cos  aaps 


(A,13(1PE10.2))  ') 

3),I*l,NMODES) 

(/A,F7.3,A) ')  '  AOA  *',ANG, 

(A,F7.3,A)')  '  VEL  -',VEL, '  m/s' 

{A,r7.3)')  •  )t  -•,rREQ 

(A,F6.3,A)')  '  w-  ', OMEGA, '  Hz' 


[a] 
[a]  : 
ta]  : 

degs' 


c - file  :  V  G.FOR - 

C 

PROGRAM  VG_ANALYSIS 
C 

INCLUDE  P ARAM. INC 

INCLUDE  GLBBLK.INC 


c 


c 

c 

c 

10 

c 

c 

c 

20 


c 

30 


C 

C 

C 


C 

C 

C 


R£AL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

COMPLEX 

COMPLEX 

COMPLEX 

INTEGER 

LOGICAL 

CHARACTER 


TRATIO,  FREQ,KOE': 

KINV (MAXMODE, MAXMODE) ,FV3 (MAXMODE) 

AR (MAXMODE, MAXMODE) ,AI (MAXMODE, MAXMODE) 

ZR (MAXMODE) ,ZI { MAXMODE ), QB (NBMAX) 

QR (MAXMODE, MAXMODE) ,QI (MAXMODE, MAXMODE) 
OMEGA (MAXMODE) , DAMP (MAXMODE) , VEL (MAXMODE) 
SL, KVL, LAM, SIGL, ALFA, SM, KVM, SIGM 
IC,L1L2,L3L4, M1M2 , M3M4 , THEO 
A  ( MAXMODE ,  MAXMODE ) 

KINVA (MAXMODE, MAXMODE) 
lERR, IP (MAXMODE) 

LSTRUC, CONVERGED 

LAYUP * 2 5 , ANS HER * 1 , F I LENAME * 2 5 


FOIL  -  ’NAC12' 
IC  -  (0.,1.) 
ATYPE  -  1 
LINEAR  -  .TRUE. 
STEADY  -  .FALSE 
REDUC  -  .TRUE. 
CORREC  -  .TRUE. 
VLINES  -  .TRUE. 
LATAN  -  .FALSE. 
LAEROF  -  .FALSE 
LCONST  -  .TRUE. 
LGEOM  -  .TRUE. 


Read  in  the  layup. 

WRITE(*, • (/A, $) ' )  'Layup  :  * 

READ(*, ' (A) • ,ERR-10)  LAYOT 

Read  in  number  of  mode  shapes  to  be  used  for  the  analysis. 

WRITE (*, ' (A, $) ' )  'Number  of  out-of-plane,  ’// 

4  'torsion,  4  foce-4-aft  modes  ?  ' 

READ(*,*,ERR-20)  NB,NT,NF 
NC  -  0 

IF  ( (NB.LT.l) .OR. (NB.GT. NBMAX) )  GOTO  20 
IF  ( (NT.LT.l) .OR. (NT.GT.NTMAX) )  GOTO  20 
IF  ( (NF.LT.O) .OR. (NF.GT.NFMAX) )  GOTO  20 
NMODES  -  NB+NT+NC+NF 


LSTRUC  -  .FALSE. 

WRITE (*, ' (A, S) ' )  'Output  structures  troubleshooting  '// 

4  'diagnostics  7  ' 

READ(*, ' (A) ',ERR-30)  ANSWER 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  LSTRUC-  .TRUE. 

Create  mass  and  stiffness  matrices  by  calling  STATIC  subroutine 

CALL  STATIC (LAYUP, LSTRUC, TRATIO, lERR) 

IF  (lERR.NE.O)  THEN 

imiTE(*, ' (A, I2,A) ')  •  IOSTAT-',IERR, '  error  reading  '// 

4  IRIM{LAYUP)//' .DAT  data  file.' 

GOTO  10 
ENDIF 


(Open  output  file. 

FILENAME  -  TRIM { LAYUP )//' WNAV . VG ' 

OPEN (UNIT-2 , FILE-TRIM (FILENAME) , STATUS- 'NEW' , 
4  FORM- ' FORMATTED ' , lOSTAT-IERR) 

IF  (lERR.EQ.O)  THEN 
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WRITE (*,*)  'Analysis  results  being  sent  to  ' //TRIM (FILENAME) 

ELSE 

WRITE(*, ' (A, I2,A) •)  ’ lOSTAT- • , lERR, •  error  opening  •// 
t  TRIM(FILENAME) // '  as  output  file.' 

GOTO  10 
END  IF 

WRITE (2, ' (312, A) ')  NB,NT,NF,'  -out-of-plane,  torsion,  •// 
t  'fore-t-aft  modes' 

WRITE(2, ' (F5.2,A) •)  TRATIO, *  -  NACA  airfoil  thickness  ratio' 

C 

C  Add  geometric  nonlinearities  to  stiffness  matrix. 

C 

DO  50  I  -  1,NB 

40  WRITE(*,  '  (A,  11,A,$)  •)  '  qM, 'B  [m]  -  • 

READ(*, *,ERR-40)  QB(I) 

50  CONTINUE 

C 

DO  80  II  -  1, MAXMODE 
DO  80  12  -  Il,MAXMOOE 

IF  ( (Il.GT.NB) .AND. (Il.LE.NB+NT) .AND. 

4  (I2.GT.NB)  .AND.  (I2.LE.NB-»-NT) )  THEN 
DO  60  13  -  1,NB 
DO  60  14  -  1,NB 

K(I1,I2)  -  K(I1,I2)  +  R(I3, 14, Il-NB, I2-NB) * 

4  QB(I3) •QB(I4) 

60  CONTINUE 

ELSEIF  ( (Il.GT.NB) .AND. (Il.LE.NB+NT) .AND. 

4  (I2.GT.MB+NT) .AND. (I2.LE.NB+NT+NF) )  THEN 
DO  70  13  -  1,NB 

K(I1,I2)  -  K(I1,I2)  +  H(I3, Il-NB, 

4  I2-MB-NT) •QB(I3) 

70  CONTINUE 

Plum  TP 

K(I2,II)  -  K(I1,I2) 

80  CONTINUE 

C 

C  Loop  through  reduced  frequencies  from  0  to  2. 

C 

ChLL  COEFS  LIN('M',0.,SM,KVM, LAM, SIGM, ALFA) 

CALL  COEFS~LIN ( ' L ' , 0 . , SL, KVL, LAM, S IGL, ALFA) 

DO  999  I  -~0,210 
C 

FREQ  -  REAL (1-9) /lOO. 

IF  {I.GE.159)  FREQ  -  1 . 5*2  .•* (1-159) 

IF  (I.LE.IO)  FREQ  -  REAL (I) /lOOO . 

IF  (I.EQ.O)  FREQ  -  l.D-4 

WRITE{*,  '  (A,I3,A,  1PG9.3) ')  'I  -  M,  ’  ;  )t  -  ’,FREQ 

C 

THBO  -  (LAIHIC*(ALFA*FREQ))/(LAM+IC*FREQ) 

XaL2  -  1.  -  IC/FREQ*SLOPE('L’)/SL*THEO 

L3L4  -  .5  -  KVL/SL  +  THEO/rREQ**2*SLOPE ( 'L* ) /SL  + 

4  ^C/FREQ* (1 .+ (SIGL/SL-SLOPE ( ' L' ) /2 . /SL) •THEO) 

C 

M1M2  -  .5  +  2.*SM/SL  -  IC/FR£Q*SLOPE ( 'L' ) /2 . /SL*THEO 
M3M4  -  .25  -  KVL/2./SL  ♦  SM/SL  -  2.*ICVM/SL  + 

4  THEO/FREQ**2*SLOPE(’L')/2./SL  +  IC/FREQ* ( . 5  + 

4  2.*SM/SL  +  2,*SIGM/SL  ♦  . 5* (SIGL/SL-SLOPE (' L* ) / 

4  2./SL)*THEO) 

C 

IF  (REDUC)  THEN 

L1L2  -  LlL2/(l.+SLOPE(’L')/PI/(2. •LENGTH/CHORD)) 

L3L4  -  L3L4/(l.+SLOPE('L*)/PI/(2.*LENGTH/CHORD) ) 

M1J42  -  M1M2/{1,+SL0PE(’L')/PI/(2.*LENGTH/CH0RD)) 

M3M4  -  M3M4/(1. ♦SLOPE CL') /PI/ (2. •LENGTH/CHORD)) 
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ENDIF 

C 

C  Out-of-plan«/out-of-plane  matrix  components. 

C 

DO  90  II  -  l.NB 
DO  90  JJ  -  II, NB 

A(II,JJ)  -  M(II,JJ)  +  SL*RHOA*LENGTH* 
t  (CHORD/2.) **2*L1L2*SC_INT(II, JJ) 

A(JJ, II)  -  A(II,JJ) 

90  CONTINUE 

C 

C  Out-of-plane/torsion  matrix  components. 

C 

DO  100  II  -  1,NB 

DO  100  JJ  -  NB+1,NB+NT 

A(I1,JJ)  •  M(II,JJ)  +  SL*RHOA*LENGTH* 

«  (CHORD/2.) **3/CHORD*L3L4*SC_INT(II,  JJ) 

100  CONTINUE 

C 

C  Torsion/out-of-plane  matrix  components. 

C 

DO  110  II  -  NB+1,NB+NT 

DO  110  JJ  -  1,NB 

A(II,JJ)  -  M(II,JJ)  +  SL*RHOA*I-ENGTH* 

C  (CHORD/2. ) **3/CHORD*MlM2*SC_INT(II,JJ) 

110  CONTINUE 

C 

C  Torsion/torsion  matrix  components. 

C 

DO  120  II  -  NB+1,NB+NT 

DO  120  JJ  -  II,NB+NT 

A(1I,JJ)  -  M(II,JJ)  +  SL*RHOA*LENGTH* 

«  (CHOBD/2.)**4/CHORD**2*M3M4* 

«  SC  INT(II,JJ) 

A(JJ,II)  -  A(II,JJ) 

120  CONTINUE 

C 

C  Fore-4-a£t  matrix  components 

C 

IF  (NF.GT.O)  THEN 
DO  130  II  -  1,NB+NT+NF 
DO  130  JJ  -  MAX0(I1,NB+NT+1),NB+NT+NF 
A(II,JJ)  -  M(II,JJ) 

A(JJ,II)  -  A(II,JJ) 

130  CONTINUE 

ENDIF 
C 

CALI.  INVERT  (K,KINV,MAXHOOE,NMOOES) 

C 

DO  ISO  ZX  -  l,NMODeS 
DO  150  KK  -  1,NIIC»ES 

KZNVA(ZZ,KX)  -  (0.,0.) 

DO  140  JJ  -  l.NMODBS 

K1HVA(II,KK)  -  KINVAdl.KK)  +  K1NV(II,  JJ)  *A( JJ, KK) 

140  COMTZMUB 

AR(ZZ,KK)  -  REAL(KINVA(II,KK) ) 

AI<II,KX)  «  AIMAG(KINVA(II,KK) ) 

ISO  CONTINUE 

C 

CALL  CG (MAXMODE, NMODES,AR,AI,ZR,Z I, 0,QR,QI,rVl,FV2,FV3,IERR) 

C 

C  Extract  natural  frequency  (OMEGA,  in  Hz),  damping  ratio  (DAMP), 

C  and  velocity  (VEL,  in  m/s)  for  each  mode  from  the  complex 

C  eigenvalues . 
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c 


00  160  II  -  1,NM0DES 
OMEGA(II)  -  0. 

OAMP(II)  -  0. 

IF  (ZR(II) .NE.O.)  THEN 

OMEGA(II)  -  l./SQRT(ABS(ZR(II)))*ZR(II)/ABS(ZR(II)) 
DAMP(II)  -  ZI (II) /ZR(II) 

ENDIF 

VEL(II)  -  (CHORD/ 2.) ‘OMEGA  ( II  )/FRf:Q 
OMEGA(II)  -  OMEGA(II)/(2.*PI) 

IP(II)  -  II 
160  CONTINXJE 

C 

C  Sort  multipla  solutions  by  increasing  frequency. 

C 

DO  170  11  -  1, (NMODES-1) 

DO  170  JJ  -  (Il+l) ,NMODES 

IF  ( OMEGA ( IP ( JJ) )  .LT.  OMEGA ( IP ( II) ) )  THEN 
IDUM  -  IP(JJ) 

IP(JJ)  -  IP (II) 

IP  (ID  -  IDUM 
ENDIF 

170  CONTINUE 

C 

DO  180  II  -  l,NMOOES 
JJ  -  IP (II) 

MR1TE(2, • (3(1PE11.3),$)  ')  VEL (JJ) , DAMP (JJ) , OMEGA (JJ) 
180  CONTINUE 

WRITE (2,*)  '  • 

C 

999  CONTINUE 
CLOSE (2) 

C 

STOP 

END 


C - FILE;  AEROF.FOR - 

C 

SUBROUTINE  AEROF (LM, THETA, HBAR, VEL, FREQ, LPRINT, D, CZ) 

C 

C  Subroutine  to  calculate  unsteady,  non-linear,  oscillatory  aero- 

C  dynaailc  coefficients  by  Fourier  decomposition  of  the  oscil- 

C  latory,  non-llnear,  stalled  static  aerodynaatic  force  coefficient. 
C 

C  INPUT  VARIABLES:  LM  -  indicator  for  lift  coefficient  (LM-*L') 

C  or  for  moment  coefficient  (LM>'M') 

C  THETA  -  oscillating  components  of  angle  of 

C  attack  (rad) 

C  HBAR  -  oscillating  components  of  1/4-chord 

C  deflection  (non-diaensional) 

C  VEL  -  velocity  (m/s) 

C  FREQ  *  reduced  frequency  (non-dimensional) 

C  LPRINT  •  logical  print  variable 

C  OUTPUT  VARIABUS:  D  >  coeffs  of  deviation  from  linear  lift 

C  curve  in  PHI  domain  (non-dimensional) 

C  .  CZ  >  oscillating  components  of  the  desired 

C  force  coefficient  (non-diawnsional) 

C 

INCLUDE  PARAM.XNC 

INCLUDE  GLBBLK . INC 

CHARACTER  LM*1 

REAL  THETA(3),HBAR(3),VEL,FREQ,CZ(5) 

LOGICAL  LPRINT 

C 
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Constants  used  in  non-linear  equations. 


ALFA:  Oscillating  components  of  effective  angle  of  attack  (rad) 
ALFO:  Mean  of  effective  angle  of  attack  (rad) 

ALFV:  Amplitude  of  oscillation  of  effective  angle  of  attack  (rad) 
TC:  Real  angle  of  attack  corrected  for  finite  span  (rad) 

S,KV, LAM, SIG,ALF,W,D,E:  Coefficients  of  ODE'S  (non-dim) 

REAL  ALFA(3)  ,ALF0,ALFV,TC(3)  ,S,ICV,  LAM,SIG,ALF 

CHARACTER  ANSWER*! 

***  Variables  used  in  linear  calculations. 

REAL  LS,LC,CZ1(3) 

COMMON  /  CZIBLK  /  CZ1(3) 

*•*  Variables  used  in  non-linear  calculations. 

INTEGER  LOREG, HIREG 

REAL  PHI (-MAXREG:MAXREG) ,BB(-MAXREG:MAXREG,0:MAXPOW) 

REAL  JCK, SINT (-MAXREG ;MAXREG, 0 :MAXPOW) ,D (0:2) 

REAL  AA,RR,EE,B1,B2,B3,AMAT(S,5) ,BVEC(5) 

REAL  CP2 (5) ,CZ2 (5) ,K1,K2,K3,K4,DCZ(5) 

RE  -  RHOA*VEL*CHORD/RMUA 

IF  (LPRINT)  THEN 

OPEN  (UNIT-3 , FILE- ' AEROF . OUT ' , STATUS- ' NEW ' , FORM- ' FORMATTED ' ) 
WRITE (3,*)  •  ' 

IF  (LM.EQ.'L')  WRITE(3,*)  'LIFT  TRIAL  USING  AEROF  SUBROUTINE* 
IF  (LM.EQ.'M*)  WRITE (3,*)  'MOMENT  TRIAL  USING  AEROF  '// 

C  'SUBROUTINE* 

WRITE (3,*)  '  ' 

WR1TE(3,*)  'INPUT  VARIABLES; • 

WRITE  ( 3 ,  * )  '  ——————— ' 

WRITE(3,*)  ’ Reynold "s  Number  RE 
WRITEO,*)  'THETAO  ,  (THETA(l)  *180. /PI) ,  '  degs’ 

WRITE (3,*)  'THETAS  - ' , {THETA(2) *180 . /PI) , '  degs’ 

WRITE(3,*)  'THETAC  (THETA(3)*180./PI) , ’  degs' 

WRITEO,*)  '  HBARO  -',HBAR(1) 

WRITE(3,*)  '  HBARs  -',HBAR(2) 

WRITE(3,*)  '  HBARC  -', HBARO) 

WRITE (3,*)  '  FREQ  -',FREQ 
ENDIF 

Calculate  the  perceived  angle  of  attack  coefficients  [ALFA(i)], 
the  mean  and  vibratory  amplitudes  [ALFO  and  ALFV] ,  and  the 
phase  [ZETA] . 

ALFA(l)  -  THETAd) 

ALFA(2)  -  THETA(2)  *  FREQ*HBAR(3) 

ALFAO)  -  THETAO)  -  FREQ*HBAR(2) 

ALFO  -  ALFA(l) 

ALFV  -  SQRT(ALFA(2)**2+ALFA{3)**2) 

IF  (ALFV.BQ.O.)  ZETA-O. 

IF  (ALFV.NE.O.)  ZETA-ATAN2  (ALFAO)  ,  ALFA (2) ) 

IF  (LPRINT)  THEN 
WRITEO,*)  '  ' 

WRITEO,*)  'XLPHAO  ,  (ALF0*180 . /PI) ,  '  degs' 

WRITEO,*)  'ALPHAS  -’ ,  (ALFA(2)  *180 . /PI) ,  '  degs' 

WRITEO,*)  'ALPHAc  - ' ,  (ALFA  (3)  *180 . /PI) ,  '  degs' 

WRITEO,*)  'ALPHAv  -',  (ALFV*180./PI)  ,  '  degs' 

WRITEO,*)  '  ZETA  -’ ,  (ZETA*180 . /PI) ,  '  degs' 

ENDIF 

Correct  effective  angle  of  attack  and  real  angle  of  attack 
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for  finite  span. 

IF  (REDUC)  THEN 

ALFO  -  ALFO/(1.-*-SLOPECL*)/PI/<2.*LENGTH/CHORD)) 

ALFV  -  ALFV/(1.-*-SL0PE(*L')/PI/(2.*LENGTH/CH0RD)) 

ALFA(l)  -  ALFA(l) / (l.+SLOPE(’L*) /PI/ (2.*LENGTH/CH0RD) ) 
ALFA(2)  -  ALFA(2) / (l.+SLOPE('L’) /PI/ (2.*LENGTH/CH0RD) ) 
ALFA(3)  -  ALFA(3)/(l.+SLOPECL*)/PI/(2.*LENGTH/CHORD)) 

TC(1)  -  THETAd)  /  (l.+SLOPE( 'LM/PI/ (2,  *LENGTH/CHORD)  ) 

TC(2)  -  THETA(2) / (1,+SL0PE('L')/PI/ (2.*LENGTH/CH0RD) ) 

TC(3)  -  THETA(3)/(1.+SL0PE('L')/PI/(2.*LENGTH/CH0RD)) 

ELSE 

TC(1)  -  THETA(l) 

TC(2)  -  THETA<2) 

TC(3)  -  THETA(3) 

ENDIF 

CZl(l)  -  SLOPE (LM) *ALF0 

Calculate  lowest  and  highest  region  in  which  the  alpha 
oscillation  passes  through. 

LOREG  -  0 
HIREG  -  0 

AMIN  -  ALFO  -  ALFV 
AMAX  -  ALFO  +  ALFV 
DO  10  I  -  1, IREGS (FOIL) 

IF  (  (TD(I)  .LE. AMIN)  .AND.  (AMIN. LT.TD(I-»-l) )  )  LOREG-I 
IF  ( (TD(1) .LT. AMAX) .AND. (AMAX. LE.TD(I+1) ) )  HIREG-I 
IF  (  (>TD(I-*-l)  .LT. AMIN)  .AND.  (AMIN. LE.-TD(I)  )  )  LOREG— I 
IF  ( (-TD(I+1) .LE. AMAX) .AND. (AMAX. LT.-TD(I) ) )  HIREG— I 
CONTINUE 

IF  ( .NOT. STEADY)  THEN 

Calculate  coefficients  of  the  linear  differential  equations. 


CALL  COEFS  LIN (LM, ALFO, S, KV, LAM, SIG, ALF) 
IF  (LPRINTT  THEN 


WRITE (3,*)  '  ' 

WRITEO,*)  •  S  -',8, 'l/rad’ 
WRITEO,*)  •  KV  -SKV, 'l/rad* 
WRITEO,*)  'LAM  -',LAM 
WRITEO,*)  'SLP  SLOPE  (LM), '1/rad' 
WRITEO,*)  'SIG  -',SIG, '1/rad' 
WRITEO,*)  'ALF  -',ALF 


END  IF 


Calculate  variables  of  linear  aerodynamic  equation. 


V  -  SLOPE(LM)*ALFA(2)-SIG*FREQ*TCO) 
bC  *  SLOPB(LM)*ALFAO)-»-SIG*FR£Q*TC(2) 
XF  (LPRIMT)  THEN 
WRITEO,*)  •  • 

WRITEO,*)  'La  -',1,3 
WRITEO,*)  'LC  -',LC 
ENDIF 


Calculate  oscillatory  contributions  of  linear  aerodynamics. 


CZ1(2)  -  ( (LAM*LAM-»-ALF*FREQ*FREQ)  *LS-»-LAM*FR£Q* 
£  (l.-ALF) *LC) / <LAM*LAM4FREQ*FREQ) 

CZIO)  -  ( (LAM*LAH>ALF*FREQ*FREQ)  *LC-LAM*FREQ* 
&  (1.-ALF)*LS)/(LAM*LAM-«>FREQ*FREQ) 
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END  IF 
C 

IF  (LPRINT)  THEN 

WRITEO,*)  •C'//LM//'lo  -’fCZKl) 

WRITEO,*)  •C’//LM//’l3  -’,021(2) 

WRITEO,*)  'C'//LM//'lc  -’,021(3) 

END  IF 

0 

0  Oalculate  the  coefficients  of  022  in  time:  1-constant, 

0  2-first  harmonic  sine,  3-first  harmonic  cosine,  4-second 
0  harmonic  sine,  5-second  harmonic  cosine. 

0 

IF  (( (LOREG.EQ.O) .AND. (HIREG.EQ.O) ) .OR. (LINEAR) )  THEN 

0 

0  Set  coefficients  equal  to  zero  if  oscillation 

0  never  enters  the  stalled  regime  or  if  only  considering 

0  the  linear  problem. 

0 

DO  20  I  -  1,5 

022(1)  -  0. 

20  OONTINUE 

ELSEIF  ( (STEADY) .OR. (ALFV.EQ.O.) )  THEN 

0 

0  If  steady,  calculate  steady  non-linear  coefficient  and  set 

0  unsteady  non-linear  coefficients  to  zero. 

0 

022(1)  -  -D02S (LM, 0,ALF0) 

DO  30  1-2,5 
022(1)  -  0. 

30  CONTINUE 

ELSE 

0 

0  Calculate  limits  of  integration  for  each  region  for 

0  use  in  the  Fourier  analysis. 

0 

PHKLOREG)  -  -PI/2. 

PHI(HIREG+1)  -  PI/2. 

IF  (LOREG.NE.HIREG)  THEN 
DO  40  I  -  LOREG+l,HIREG 
IF  (I.LE.O)  THEN 

PHI(I)  -  ASIN( (-TD (l-I) -ALFO) /ALFV) 

ELSE 

PHI(I)  -  ASIN( (TD (I) -ALFO) /ALFV) 

END  IF 

40  CONTINUE 

END  IF 

0 

IF  (LPRINT)  THEN 
NRITEO,*)  '  ' 

DO  SO  I  «  LOREG,HIREG*l 

NRITEO,*)  'REGION  -'.I,'  PHI  -  ’ ,  (PHI  ( I)  *180  . /PI)  , 
fi  '  degs ' 

SO  CONTINUE 

KNDZF 

0 

0  Calculate  the  coefficients  of  the  polynomial  expansion 

C  sine  series  in  each  region  that  the  oscillation  passes  thru. 

C 

DO  130  I  «  LOREG,HIREG 
IF  (I.EQ.O)  GOTO  130 
C 

C  Calculate  constant  coefficient. 

C 

BB(I,0)  -  REAL(SIGN(1,I))*DCZS(LM,0,TD(ABS(I))) 
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60 

C 

C 

C 


& 


c 

c 

c 


70 

c 

c 

c 


fi 

4 

80 

90 

C 


100 


C 

C 

C 

c 


110 

c 


4 

4 


120 

130 

C 

c 

c 

c 


DO  60  J  -  1, JMAX (ABS (I) ) 

BB(I,0)  -  BBd.O)  +  REAL(SIGN(1,  I)  **  (J+1)  )  * 

A(LM, ABS (I) , J) * (ALF0-REAL(SIGN(1, I) ) •TD(ABS (I) ) ) ‘‘J 
CONTINUE 

Calculate  higher  order  coefficients. 

DO  90  KK  -  1,  JMAX  (ABS  (I)  ) 

BB(I,KK)  -  REAL(. IGN(1,I) ) ** (KK+1) *A(LM,ABS (I) ,KK) * 
(AUrV’-KK) 

IF  (KK.NE. JMAX(ABS (I) ) )  THEN 
DO  80  J  -  KK+1, JMAX(ABS<I) ) 

Calcula;,e  J-choose-KK. 

JCK  »  1. 

DO  70  L  -  1,KK 

JCK  -  JCK*REAL(J-L+1) /REAL(L) 

CONTINUE 

Add  contribution  of  j-th  power  to  bb(i,ic)c). 

BB(I,KK)  -  BB(I,KK)  +  JCK* (SIGN(1, I) ) ** (J+1) • 

A(LM,ABS (I) , J) * (ALFV**KK) • ( (ALFO-REAL ( SIGN ( 1 , I ) ) * 
TD(ABS (I) ) ) •• (J-KK)  ) 

CONTINUE 
END  IF 
CONTINUE 

IF  (LPRINT)  THEN 
WRITE(3,*)  '  ' 

WRITE(3, *)  'REGION  , I 
DO  100  KK  -  0,JMAX(ABS(I) ) 

WRITEO,*)  'B(',KK,’)  -',BB(I,KK) 

CONTINUE 

ENDIF 

Calculate  the  integrals  of  the  sine  powers  in  each  region 
using  Eqn  299  from  "CRC  Standard  Math  Tables,"  28th  edition. 

SINT(I,0)  -  PHI(I+1)  -  PHI(I) 

SINT(I,1)  -COS(PHI(I))  -  COS (PHI (I+l) ) 

DO  110  KK  -  2, JMAX (ABS ( 1) ) *2 

SINT(I,KK)  -  (COS (PHI (I) ) •SIN(PHI (1) ) *• (KK-1) - 
COS (PHI (I+l) ) *SIN(PHI ( :+l) ) •*(KK-1) ) /REAL(KK)+ 

REAL(KK-l) /REAL(KK) 'SINT ( I, KK-2) 

CONTINUE 

I?  (LPRINT)  THEN 
WRITE (3,*)  ’  • 

DO  120  KK  -  0,JMAX(ABS{I)  )*2 

»(RITE(3,*)  'SINTEGRAK ',KK,  ')  - ' ,  SINT  { I,  KK) 

CONTINUE 

ENDIF 

CONTINUE 

Calculate  the  polynomial  coefficients  of  the 
Fourier  expansion  in  the  PHI  domain. 

DCZO  -  0. 

DCZl  -  0. 

DCZ2  -  0. 

DO  150  I  -  LOREGrHIREG 
IF  (I.NE.O)  THEN 
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DO  140  KK  -  0, JMAX(ABS (I) ) 

DCZO  -  DCZO  +  BB(I,KK) *SINT(1,KK) /PI 
DCZl  -  DCZl  +  BB(I,KK)*SINT(I,KK+1)*2./PI 
DCZ2  -  DCZ2  +  BB(I,KK)*(SINT(I,KK)-2.* 

&  SINT(I,KK+2) ) •2./PI 

140  CONTINUE 

END  IF 

150  CONTINUE 

C 

IF  (LPRINT)  THEN 
WRITE (3,*)  '  ' 

WRITE(3,*)  'DC'//LM//’0  -',0020 
WRITE(3,*)  •DC'//LM//'V1  -'.DCZl 
WRITE(3,*)  'DC’//LM//'V2  -',DCZ2 
ENDIF 

IF  (LM.EQ.'L')  THEN 
D(0)  -  DCZO 
D(l)  -  DCZl 
D(2)  -  DCZ2 
ENDIF 

Calculate  coefficients  of  the  non-linear  aerodynamic 
differential  equations.  NOTE:  this  depends  on  DCL 
components  —  D(0),  D(l>,  &  D(2)  -  havinq  already 
been  calculated,  i.e.  that  the  calculations  for 
LM“'L'  are  done  before  LM-'M'. 

CALL  COEFS_NON<ALFO,D(0) , LM, AA, RR, EE, Bl, B2 , B3) 

IF  (LPRINT)  THEN 
WRITE(3,*)  '  ' 

IF  ((Bl.NE.O.) .OR. (B2.NE.0.) .OR. (B3,NE.O,))  THEN 
MRITE(3,*)  'aO  -',AA*(1.-B1*D{0> **2) 

WRITE  (3,*)  'al  -SAA’Bl 

WRITE(3,*)  'rO  , SQRT (RR) • (1 . -B2*D (0) **2) 
WRITE (3,*)  'rl  -•,SQRT(RR) *B2 
WRITEO,*)  'eO  -•,EE*(1.-B3*D(0)  **2) 


WRITE(3, *) 

•el 

ELSE 

WRITE(3, *) 

•A  -',AA 

WRITE (3, *) 

•R  -'rRR 

WRITE(3, *) 

•E  -•,EE 

ENDIF 

ENDIF 

C 

AMAT<1,1)  -  RR  *  (1.  B2  *  (D ( 1) ‘‘Z+D  (2)  **2)  + 

«  82**2  *  (2.*D(0)  **2*D{1)  **2  .375*D(1)**4  - 

«  3.*D<0)*D(1)**2*D(2)  +  2.*D(0)**2*D(2)**2  + 

4  1.5*D(1)**2*0(2) **2  +  .375*D(2) **4) ) 

AHAT(1,2)  -  RR  *  (B2  *  (2 . *D (0) -D ( 1) -D (1) *D (2) )  + 

4  »2**2  *  (1. 5*0(0) *0(1) **3  -  2.*D(0) **2*0(1) * 

4  0(2)  -  0(1)**3*0(2)  +  3.*D(0)*O(l)*D(2)**2  - 

4  .75*0(1) *0(2) **3)) 

MIAT(1,3)  -  -rRZQ*AA*Bl  *  (D(0)*D(1)  - 
4  .5*0(1)*0(2) ) 

AMAT(1,4)  -  2.*rREQ*AA*Bl  *  (- . 25*D ( 1) **2  + 

4  O(0)*O(2)) 

AMAT(1,5)  -  RR  *  (B2  *  (- . 5*D ( 1) **2+2 . *0 (0) * 

4  0(2))  +  B2**2  *  (-0(0) **2*D(1) **2  -  .25*0(1)**4  + 

4  3.*D(0)*D(l)**2*O(2)  -  1 . 125*D (1) **2*D (2) **2  + 

4  1.5*O(0)*O(2)**3)) 

C 

AMAT(2,1)  -  RR  *  (B2  *  (4  .  *D (0) *D ( 1)  -  2. *0(1)* 

4  0(2))  +  B2**2  *  (3.*O(0) *0(1) **3  -  4.*O(0)**2* 
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&  D(1)*D(2)  -  2. *D(1) **3»D(2)  +  6  .  *D (0) *0 (1) * 

t  D(2)**2  -  1.5*D(1)*D(2)*«3)) 

AMAT(2,2)  -  RR  *  ( 1 .  +  B2  *  (1.5*D(1)**2  - 
C  2.*D(0)*D(2)  +  D(2)**2)  +  B2**2  *  (3.*D(0)**2* 

&  D(l)**2  +  .625*D<1)»*4  -  6 . *D < 0 ) *0 ( 1) **2*D (2 )  + 

&  2. *0(0) ’**2*0(2)  **2  +  2 .625*0(1)  **2*D  (2)  **2  - 

t  1. 5*0(0) *0(2) **3  +  .375*0(2) **4) ) 

AMAT(2,3)  -  -FREQ*AA  *  (1.  +  B1  *  (.75*0(1)**2  - 
t  0(0)*0(2)  +  .5*0(2)**2)) 

AMAT(2,4)  -  2.*FREQ*AA*B1  •  {-O(0)*O(l)  + 

(  0(1)*0(2)) 

AMAT(2,5)  -  RR  *  (B2  *  (-2 . *0 (0) *0 (1)  +  2. *0(1)* 

&  0(2))  +  B2**2  *  (-2.*O(0)*O(l)**3  +  4.*O(0)**2* 

i  0(1)*0(2)  +  1.75*0(1) **3*0(2)  -  4 .5*0 (0) *0 (1) * 
i  0(2)**2  +  1.5*0(1)*0(2)**3)) 

AMAT(3, 1)  -  0. 

AMAT(3,2)  -  FREQ*AA  *  (1.  +  B1  *  (.25*0{1)**2  + 

4  O(0)*O(2)  +  .5*0(2)**2)) 

AMATO, 3)  -  RR  *  (1.  +  B2  *  (.5*0(1)**2  + 

4  2.*O(0)*O(2)  +  0(2)**2)  +  B2**2  *  (O(0)**2* 

4  0(1)**2  +  .125*0(1)**4  -  2. *0(0) **3*0(2)  + 

4  2. *0(0) **2*0(2) **2  +  2. *0(0) **3*0(2)  + 

4  .375*0(1)  **2*0(2)  **2  +  1. 5*0(0)  *0(2)  **3  -r 

4  .375*0(2) **4) ) 

AHAT(3,4)  -  RR  *  (B2  *  2.*0(0)*0(1)  +  B2**2  * 

4  (0(0) *0(1) **3  -  .25*0(1) **3*0(2)  +  1. 5*0(0)* 

4  0(1) *0(2) **2) ) 

AMATO, 5)  -  -2  .  *FREQ*AA*B1  *  0(0)*0(1) 

AMAT(4,1)  -  0. 

AMAT(4,2)  -  FREQ*AA*B1  *  0(0) *0(1) 

AMAT(4,3)  -  RR  *  (B2  *  2.*D(0)*D(1)  +  B2**2  * 

4  (0(0) *0(1) **3  -  .25*0(1) **3*0(2)  +  1. 5*0(0)* 

4  0(1)*0(2)**2)) 

AMAT(4,4)  -  RR  *  (1.  +  B2  *  (0(1)**2  + 

4  .5*0(2)**2)  +  B2**2  *  (2 . *0 (0) **2*0 (1) **2  + 

4  .3125*0(1)**4  -  1.5*O(0)*O(l)**2*O(2)  + 

4  0(0) **2*0(2) **2  +  .75*0(1) **2*0(2) **2  + 

4  .125*0(2)**4) ) 

AMAT(4,5)  -  -2.*FREQ*AA  *  (1.  +  B1  * 

4  (.5*0(1)**2  +  .25*0(2)**2)) 

AMAT(5,1)  -  RR  *  (B2  *  (D(l)**2  +  4. *0(0)* 

4  0(2))  +  B2**2  *  (-4. *0(0) **2*0(1) **2  - 

4  .5*D(1)**4  +  6. *0(0) *0(1) **2*0(2)  - 

4  2.25*0(1)  **2*0(2)  **2  3 . *0 (0)  *0 (2)  **3) ) 

AMAT(5,2)  -  RR  *  (B2  *  (-2 . *0 (0) *0 (1)  +  2.* 

4  0(1)*D(2))  +  B2**2  *  (-2.*D(0) *0(1) **3  + 

4  4. *0(0) **2*0(1) *0(2)  +  1.75*0(1) **3*0(2)  - 

4  4. 5*0(0) *0(1) *0(2) **2  +  1 . 5*0 (1) *0 (2) **3) ) 

AIIAT(5,3)  -  -FREQ*AA*B1  *  (0(0)  *0(1)  +  0(1)  *0(2)) 
AMAT(5,4)  -  2.*FREQ*AA  *  (1.  +  B1  *  (.5*0(1)**2  + 
4  .75*0(2) **2) ) 

AMAT(5,5)  -  RR  *  (1.  +  B2  *  (0(1)**2  +  1.5* 

4  0(2)**2)  +  B2**2  *  (2. *0(0) **2*0(1) **2  + 

4  .4375*0(1) **4  -  4.5*O(0)*D(l)**2*O(2)  + 

4  3. *0(0) **2*0(2) **2  +  2.25*0(1) **2*0(2) **2  + 

4  .625*0(2) **4) ) 

BVEC(l)  -  -(AMAT(1,1)*OC20  +  AMAT (1, 2) *0CZ1  + 

4  AMAT(l,5)*OCZ2) 

BVEC(2)  -  -(AMAT(2, 1) *OCZO  +  AMAT (2, 2) *0CZ1  + 

4  AMAT(2,5) *0CZ2) 
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BVECO)  -  -(FREQ*DCZ1  *  EE  •  (1.  +  B3  * 

&  (.25*D(1)**2  +  D(0)*D(2)  +  .5*D(2)«*2))  - 

&  2.*FREQ*DCZ2  •  EE*B3  •  D(0)*D(1)) 

BVBC(4)  -  -(FREQ*DCZ1  *  EE*B3  *  D(0)*D(1)  - 
«  2.*FR£Q*DCZ2  *  EE  *  (1.  +  B3  *  (.5*D(1)**2  + 
i  .25*D{2) **2) ) ) 

BVEC(5)  -  -(AMAT(5, 1) *DC20  +  AMAT (5, 2) *DC21  + 

&  AMAT(S,S) *DCZ2) 

C 

AMAT(2,2)  -  AMAT(2,2)  -  FREQ**2 
AMATO,  3)  -  AMATO,  3)  -  FREQ**2 
AMAT(4,4)  -  AMAT(4,4)  -  4.*FREQ**2 
AMAT(5,5)  -  AMAT(5,5)  -  4.*FR£Q**2 
C 

160  FORMATC  1  ' ,  5  (IPEIO  .2)  ,  '  I  ' ,  A7,  •  |  ' ,  IPEIO  .  2,  '  I  • ) 

IF  (LPRINT)  THEN 
WRITE (3,*)  '  ' 

DO  170  JJ  -  1,5 

IF  {JJ.NE.3)  THEN 

WRITEO,160)  (AMAT(JJ,KK)  ,KK-1,5)  , 
fi  '  ',BVEC(JJ) 

HLSE 

WRITEO,160)  (AMAT(JJ,!aC)  ,KK-1,5)  , 

«  •.C*//LM//'2  -  •,BVEC(JJ) 

ENDIF 

170  CONTINUE 

ENDIF 
C 

CALL  SOLVE{AMAT,BVEC,CP2,5,l,5) 

IF  (LPRINT)  THEN 
WRITE (3,*)  •  ' 

WRITE(3,*)  'Nonlinear  coefficients  in  Phi  *// 

£  'or  (Omega*Tau'*-Zeta)  domain:' 

WRITEO,  '  </S<A,  1PE10.3))  •>  '  C  / /LM// '  2P0-' ,  CP2  (1) , 

«  '  ;  C'//LM//'2Psl-',CP2(2) , '  ;  C //LM// •2Pcl-' ,CP2 (3) , 

«  •  ;  C'//LM//'2Ps2-',CP2(4), '  ;  C //LM// •2Pc2-' , CP2 (5) 

ENDIF 

Convert  nonlinear  coefficients  to  normal  OMEGA*TAU  domain. 
CZ2(1)  -  CP2(1) 

C22<2)  -  CP2 (2) *COS (ZETA)  -  CP2 (3) *SIN (ZETA) 

CZ2(3)  -  CP2 (3) *COS(ZETA)  +  CP2 (2) *SIN (ZETA) 

CZ2(4)  -  CP2(4)*COS(2.*ZETA)  -  CP2 (5) *SIN (2 . *ZETA) 

C22(5)  -  CP2(5)*COS(2.*ZETA)  +  CP2 (4) *SIN (2 . *ZETA) 

If  diagnostics  in  effect,  compare  against  old  analysis, 
from  Dunn  Master's  thesis,  using  constant  coefficients. 

xr  (LPRINT)  THEN 

OCZ(l)  -  D(0) 

DCZ(2)  -  0(1) *008 (ZETA) 

DCZO)  -  0(1)  *SIN (ZETA) 

OC2(4)  -  -0(2) *SIN(2.*ZETA> 

0CZ(5)  -  0(2)*C0S(2.*ZETA) 

CP2(1)  -  -OCZ(l) 

Calculate  first  harmonic  coefficients  of  unstSady 
aerodynamics . 

K1  -  RR-FREQ**2 
K2  -  AA*FREQ 
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K3  -  -RR*DCZ (2) +EE*FREQ*OCZ (3) 

K4  -  -RR»DCZ(3)-EE*FREQ«DCZ(2) 

CP2(2)  -  (K1*K3+K2*K4) / (K1»K1+K2*K2) 

CP2(3)  -  <K1*K4-K2*K3) y (K1*K1+K2*K2) 

WRITE (3, ’ (/A) ' )  *  First  Harmonic  in  Omega*Tau  domain' 

WRITE(3,*)  'DC'//LM//’0  -•,DCZ(1) 

WRITEO,*)  'DC'//LM//'3l  -•,DCZ(2) 

WRITE(3,*)  'DC'//LM//'cl  -',DCZ(3) 

WRITEO,*)  'KKD  -*,K1 
WRITEO,*)  'K2(l)  -•,K2 
WRITEO,*)  'K3(l)  -•,K3 
WRITEO,*)  'K4(l)  -',K4 
WRITEO,*)  'CZ2o  -•,CP2(1) 

WRITEO,*)  'CZ2sl  -•,CP2(2) 

WRITEO,*)  'CZ2cl  -•,CP2(3) 

Calculate  second  harmonic  coefficients  of  unsteady 
aerodynamics . 

K1  -  RR- (2 . *FREQ) **2 
K2  -  AA*(2.*FREQ) 

K3  «  -RR*DC2 (4) +EE*2 . *FREQ*DCZ (5) 

K4  -  -RR*DCZ(5)-EE*2.*FREQ*DC2(4) 

CP2(4)  -  (K1*K3+K2*K4) / (K1*K1+K2*K2) 

CP2(5)  -  (K1*K4-K2*K3) / (K1*K1+K2*K2) 

WRITEO,  '  (/A)  ')  '  Second  Harmonic  in  Omega*Tau  domain' 

WRITEO,*)  'DC'//LM//'32  -’,002(4) 

WRITEO,*)  'DC'//LM// 'c2  -',DCZ(5) 

WRITE(3,*)  'Kl(2)  -',K1 
WRITEO,*)  'K2(2)  -•,K2 
WRITEO,*)  'K3{2)  -•,K3 
WRITE (3,*)  ’K4(2)  -’,K4 
WRITEO,*)  'C2232  -•,CP2(4) 

WRITE(3,*)  'C22c2  -',CP2(5) 

END  IF 
ENDIF 

IF  (LPRINT)  THEN 
WRITEO,*)  '  ' 

WRITEO,*)  'C'//LM//'20  -’,022(1) 

WRITEO,*)  ’C’//LM//’2sl  -’,022(2) 

WRITEO,*)  ’C’//LM//’2cl  -’,022(3) 

WRITB(3,*)  ’C’//LM//'2s2  -’,022(4) 

WRITEO,*)  ’C’//LM//'2c2  -’,022(5) 

ENDIF 

Add  apparent  mass  terms. 

021(2)  -  021(2)  -  S*FREQ*ALFAO)  -  KV*FREO*FREQ*TC  (2) 

021(3)  -  021(3)  +  S*FREQ*ALFA(2)  -  KV*FREQ*FREQ*TC (3) 

Combine  linear  and  non-linear  terms  for 

total  coefficients  of  full  non-linear  aerodynamics. 

02(1)  -  021(1)  +  022(1) 

02(2)  -  021(2)  +  022(2) 

02(3)  -  021(3)  +  022(3) 

02(4)  -  022(4) 

02(5)  -  022(5) 

IF  (LPRINT)  THEN 
WR1TE(3,*)  '  ’ 
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WRITE (3, *) 

WRITE (3, *) 

WRITE (3, *) 

WRITE  (3,  *) 

WRITE (3, *) 

CLOSE (3) 

WRITE  (*,  *) 

6  •  ;  CZ32 

PAUSE 
END  IF 

RETURN 
END 

-FILE:  CHARAC.FOR  - 

Subroutines  and  functions  which  describe  the  static  lift  curve 
of  the  desired  airfoil  ('OA212'  for  the  OA212  or  'NAC12'  for  the 
NACA-0012) . 


•C'//LM//'0  -’,02(1) 

•C'//LM//'sl  -*,02(2) 

•C'//LM//'cl  -',C2(3) 

•C'//LM//'s2  -*,02(4) 

•C'//LM//*c2  -*,02(5) 

•C20  -*,C2(1),*  ;  C2sl  -*,C2(2),'  ;  C2cl  -',C2(3), 
-•,C2(4) , •  ;  CZc2  -’,02(5) 


Function  to  describe  the  slope  of  the  linear  part  of  the  lift 
curve . 

REAL  FUNCTION  SLOPE (LM) 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

CHARACTER  LM*1 

OA212  lift  slope  taken  from  Rogers,  "Applications  of  an 
Analytic  Stall  Model  to  Time-History  and  Eigenvalue  Analysis 
of  Rotor  Blades",  Journal  of  the  American  Helicopter  Society, 
January  1984. 

IF  ( (FOIL. EQ. •OA212') .AND. (LM.EQ. ’L') )  SLOPE-7,1 
*•  nac:a-ooi2  lift  slope  approximated  from  NACA  report  586, 

**  JACOBS  «  SHERMAN,  FIGURE  3 

IF  ( (FOIL. EQ. 'MAC12') .AND. (LM.EQ. 'L') )  SLOPE-0 . 103* (180 . /PI) 

IF  ( (FOIL.EQ. 'NACIZ') .AND. (LM.EQ. *L') )  SLOPE-2. *PI 

**  NACA-0012  MOMENT  SLOPE  APPROXIMATED  FROM  NACA  TM-84245-VOL-2, 
**  MCALISTER,  PUCCI,  McCROSKEY,  AND  CARR,  FIGURE  9 

IF  ( (FOIL. EQ. 'NAC12') .AND. (LM.EQ. 'M') )  SLOPE-0 . 002* (180 . /PI) 

IF  ( (FOIL. EQ.’NAC12’) .AND. (LM.EQ. ’M’))  SLOPE-0 . 

RETURN 

END 


Function  to  describe  the  OERIv-th  derivative  of  Delta-C2  Static 
(DCZS,  the  static  deviation  from  the  static,  linear  lift  curve) , 
evaluated  at  angle  THETA. 

REAL  FUNCTION  DC2S (IM, IDERIV, THETA) 

C 

INCLUDE  PARAM . INC 

INCLUDE  GLBBLK . INC 

CHARACTER  LM*1 
C 
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c 

c 


10 

c 


c 

c 

c 


c 

c 

c 

c 


20 

30 

C 

C 

C 

c 

c 


40 


c 

c 

c 

c 


c 

c 

c 


so 

c 

c 

c 

c 


60 


Find  region  in  which  THETA  lies. 

IREG  -  0 

DO  10  I  -  1, IREGS (FOIL) 

IF  (  (TD  (I)  .LT. THETA)  .AND.  (THETA. LE.TL(’:  +  1)  )  )  IREG-I 
IF  (  (-TD(I+1)  .LE. THETA)  .AND.  (THETA. LT.-TD(I)  )  )  IREG— I 
CONTINUE 

IF  (LINEAR)  THEN 
DCZS  -  0. 

ELSEIF  (IDERIV.EQ.O)  THEN 

Calculate  zero-th  derivative. 

IF  (IREG.EQ.O)  THEN 
DCZS  -  0. 

ELSE 

DO  30  I  -  0,ABS (IREG) -1 

Calculate  DCZS  at  TDdREG)  by  calculating  region 
by  region  DCZS(TD(I))  in  each  region  previous  to  IREG. 

IF  (I.EQ.O)  THEN 
DCZS  -  0. 

ELSE 

DO  20  J  -  1,JMAX(I) 

DCZS  -  DCZS  +  A(LM, I, J) • (TD(I+1) -TD(I) ) **J 
CONTINUE’ 

END  IF 
CONTINUE 

Calculate  DCZS (THETA)  using  the  previously  calculated 
DCZS  (TDdREG) )  as  a  starting  point  and  the  power 
expansion  of  DCZS  in  region  IREG. 

DO  40  J  -  1, JMAX(ABS(IR£G) ) 

DCZS  -  DCZS  +  A (LM,ABS( IREG), J)*(ABS( THETA) - 
4  TD(ABS (IREG) ) ) **J 

CONTINUE 

DCZS  -  DCZS*R]EAL  (SIGN (1,  IREG)  ) 

END  IF 

ELSEIF  (IDERIV.GT.O)  THEN 

Calculate  higher  derivatives. 

DCZS  -  0. 

IF  < (IREG. NS. 0) .AND. (IDERIV.LE.JMAX(ABS (IREG) )) )  THEN 
DO  60  J  -  IDERIV, UMAX (ABS( IREG) ) 

Calculate  J! / ( J-IDERIV) ! . 

IFAC  -  1 

DO  50  JJ  -  J-IDERIV+1,J 
IFAC  -  IFAC*JJ 
CONTINUE 

Add  contribution  of  J>th  power,  differentiated  IDERIV 
tines,  to  the  overall  derivative. 

DCZS  -  DCZS  *  A(LM,ABS (IREG) ,J) *REAL( IFAC) • 

4  (ABS (THETA) -TD (ABS ( IREG) ) ) ** (J-IDERIV) 

CONTINUE 
END  IF 
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DCZS  -  DCZS*REAL(SIGN(l,  IREG) ) 
END  IF 

RETXJRN 

END 


Function  to  describe  number  of  regions  into  which  the  lift 
curve  is  divided. 


INTEGER  FUNCTION  IREGS(FOIL) 

CHARACTER  FOIL* 5 

IF  (FOIL.EQ. •OA212’)  IREGS-2 

IF  (FOIL.EQ. '0A2 12')  IREGS-1 

IF  (FOIL.EQ. 'NAC12')  IREGS-3 

IF  (FOIL.EQ. 'NAC12')  IREGS-2 

RETURN 

END 


Function  to  describe  the  angles  at  which  each  of  the  regions  of 
the  lift  curve  begins  [units  of  radians] . 

REAL  FUNCTION  TD(IREG) 

INCL(JDE  PARAM .  INC 

INCLUDE  GLBBLK.INC 

IF  (FOIL.EQ. 'OA2 12')  THEN 

IF  (IREG.EQ.l)  TD-10.*PI/180. 

IF  (IRBG.EQ.2)  TD-24 . 8*Pr/l80 . 

IF  (IREG.GE.3)  TD-PI/2. 

IF  (IREG.EQ.2)  TD-PI/2. 

ELSEIF  (FOIL.EQ. 'NAC12')  THEN 

**  PARABOLIC,  STALL,  AND  STRAIGHT  LINE  ANGLES  FOR  NACA-0012 
**  APPROXIMATED  USING  FIT  TO  LOG (RE)  DATA  FROM  NACA  REPORT  586, 
**  JACOBS  6  SHERMAN,  FIGURE  3. 

RVAL  -  LOG(RE/3.4E5)/LOG(2.) 

Parabolic  from  half  of  stall  to  stall  angle  (11  deg), 
exponential  decay  to  large  angles  (25  deg),  flat  line  above. 

IF  (IREG.EQ.l)  TD-(11.+2.143*RVAL) /2.*PI/180. 

IF  ((IREG.EQ.l) .AND. (RE. LT. 3. 4D5))  TD-11 . /2 . *PI/180 . 

IF  (IREG.EQ.2)  TD- (11 .+2 . 143*RVAL) *PI/180 . 

IF  ((IREG.EQ.2) .AND. (RE. LT. 3. 4D5) )  TD-11 . •PI/180 . 

IF  (IREG.EQ.3)  TD-25 . *PI/180 . 

IF  (IREG.GE.4)  TD-PI/2. 

Straight  line  to  stall  angle  (11  deg),  exponential  decay  to 
large  angles  (25  deg),  flat  line  above. 

IF  (IREG.EQ.l)  TD-(H.+2.143*RVAL)*P1/180. 

IF  ( (IREG.EQ.l) .AND. (RE. LT. 3. 4D5) )  TD-11 . *PI/180 . 

IF  (IREG.EQ.2)  TD-25 . *PI/180 . 

IF  (IREG.GE.3)  TD-PI/2. 

Slight  drop  after  stall  angle  (8  deg),  then  flat  line  at 
high  angles  020  deg) 
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C 


IF  (IREG.EQ.l)  TD-8.*PI/180. 

IF  (IREG.EQ.2)  TD-20 . •pi/180 . 

IF  (IREG.EQ.3>  TD-PI/2. 

Flat  line  lift  curve  after  stall  angle. 

CLASY  -  .75  +  .0536*RVAL 
IF  (RVAL.LE.O)  CLASY-.75 
IF  (IREG.EQ.l)  TD-CLASY/ SLOPE  CL*) 

IF  (IREG.EQ.2)  TD-PI/2. 

ENDIF 

RETURN 

END 


Function  to  describe  the  maxinvam  power  of  the  polynomial 
approximation  used  in  region  IREG. 

INTEGER  FUNCTION  UMAX (IREG) 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

IF  (FOIL.EQ. •OA212')  THEN 

Straight  lines  connecting  each  region. 

JMAX-1 

IF  (IREG.EQ.l)  JMAX-7 
IF  < IREG.EQ.2)  JMAX-1 

ELSEIF  (FOIL.EQ. 'NAC12')  THEN 

Straight  lines  connecting  each  region. 

JMAX-1 

Parabolic  below  stall,  exponential  to  asymptotic,  level  off 
to  flat  line  for  high  angles. 

IF  (IREG.EQ.l)  JMAX-2 
IF  (IREG.EQ.2)  JMAX-10 
IF  (IREG.EQ.3)  JMAX-1 

ENDZr 

RETURN 

END 


Function  to  prescribe  the  coefficients  of  the  polynomial 
approximation  to  Oelta-CZ  in  region  IREG.  Powers  of  (180/PI) 
are  present  because  of  conversions  from  units  of  degrees  to 
radians . 

REAL  FXmCTION  A{LM, IREG,J) 

C 


INCLUDE 

INCLUDE 

CHARACTER 


PARAM.INC 
GLBBLK. INC 
LM*1 
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IF  ( (FOIL. EQ. 'OA212 ') .AND. (LM.EQ. 'L' ) )  THEN 
IF  (IREG.EQ.l)  THEN 
IF  (J.EQ.l)  A-0. 

IF  (J.EQ.2)  A-+6.3059700D-2*(I80./PI)**2 
IF  (J.EQ.3)  A— 1.3952010D-2*(180./PI) **3 
IF  {J.EQ.4)  A-+1.7390851D-3*(180./PI)**4 
IF  (J.EQ.5)  A— 1.2451913D-4*(180./PI) **5 
IF  (J.EQ.6)  A-+4.6849257D-6*(180./PI)**6 
IF  (J.EQ.7)  A— 7.0879730D-e*{l80./PI)**7 
ELSEIF  (IREG.EQ.2)  THEN 
IF  (J.EQ.l)  A-SLOPE(LM) 

END  IF 
A  •  0. 

IF  ( (IREG.EQ.l) .AND. (J.EQ.l) )  A-SLOPE(LM) 

ELSEIF  (FOIL.EQ. 'NAC12*)  THEN 

•*  PARABOLIC,  STALL,  AND  STRAIGHT  LINE  COEFFICIENTS  FOR 
**  NACA-0012  LIFT  SLOPE  ARE  APPROXIMATED  USING  FIT  TO  LOG (RE) 

**  DATA  FROM  NACA  REPORT  586,  JACOBS  &  SHERMAN,  FIGURE  3. 

**  COEFFICIENTS  FOR  MOMENT  SLOPE  TAKEN  FROM  MCALISTER,  NASA 
*•  TM-84245,  FIGURE  ?. 

RVAL  -  LOG(RE/3.4E5) /LOG(2.) 

Calculate  the  maximum  lift/moment  coefficient,  dependent  on 
the  log  of  the  Reynold's  Number. 

CZMAX  -  .86  +  .24*RVAL 
IF  (RVAL.LE.O)  CZMAX-.86+.03*RVAL 
IF  (LM.EQ. 'M')  C2MAX-.04 

Calculate  the  asyn?3totic  lift/moment  coefficient  (i.e.  the 
lift /moment  coefficient  when  the  angle  of  attac)t  tends  to  large 
angles),  dependent  on  the  log  of  the  Reynold's  Number. 

RVAL  -  0. 

CZASY  -  .75  +  .0536*RVAL 
IF  (RVAL.LE.O)  CZASY-.75 
IF  (LM.EQ. 'M')  CZASY— .12 

Calculate  the  coefficient  o  '  the  exponential  decay  from  maximum 
to  asymptotic,  dependent  or  the  log  of  the  Reynold's  Number. 

RNU  -  -.2-.07*RVAL 
IF  (RVAL.LE.O)  RNU— .2 

Calculate  the  necessary  polynomial  coefficients  for  each 
region,  using  the  previously  calculated  maximum,  asymptotic, 
and  e^^nentlal  decay  coefficients. 

A  ••  0 . 

Zr  (LM.EQ. 'L')  THEN 
IF  (IREG.EQ.l)  THEN 

Parabolic  fit  from  end  of  linear  region  (region  0)  to 
point  of  maximum  lift/moment  (end  of  region  1) .  The 
polynomial  coefficients  are  chosen  such  that  the  slope  is 
continuous  at  the  juncture  of  regions  0  and  1. 

IF  (J.EQ.l)  A-0. 

IF  (J.EQ.2)  A-(SLOPE(LM) *TD(2) -CZMAX) / (TD(2) -TD(1) ) **2 
ELSEIF  (IREG.EQ.2)  THEN 
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Exponential  fit  with  decay  coefficient  RNU  from  end  of 
parabolic  region  (region  1)  to  beginning  of  asymptotic 
region  (region  3) .  The  polynomial  coefficients  ate  chosen 
such  that  they  fit  a  power  series  expansion  of  the 
exponential  decay. 

IFAC  -  1 
DO  10  I  -  1,J 
IFAC  -  IFAC* I 
CONTINUE 

A  -  (CZASY-CZMAX) *RNU**J/M:AL(IFAC) * (180./PI) **J 
IF  (J.EQ.l)  A-A+SLOPE(LM) 

ELSEIF  (IREG.EQ.3)  THEN 

Flat  line  fit  for  the  asymptotic  region  (region  3) . 

IF  (J.EQ.l)  A-SLOPE(LM> 

END  IF 

ELSEIF  (LM.EQ.’L')  THEN 

Moment  coefficient  remains  constant  up  to  stall  (i.e. 
through  regions  Oil),  straight  line  drop  to  the  asymptotic 
value  in  region  2,  and  flat  line  afterward. 

IF  ( (IREG.EQ.2) .AND. (J.EQ. 1) )  A— CZASY/ (TD (3) -TD (2) ) 

IF  ( (IREG.EQ.3) .AND. (J.EQ. 1) )  A-SLOPE(LM) 

END  IF 

IF  (LM.EQ.'L')  THEN 

IF  (IREG.EQ.l)  A  -  (SLOPE (LM) 'TD (2) -CZASY) / (TD (2) -TD  (1) ) 

IF  (IREG.EQ.2)  A  -  SLOPE<LM) 

ELSEIF  (LM.EQ.'M')  THEN 

IF  (IREG.EQ.l)  A-  (SLOPE (LM) 'TD (2) -CZASY) / (TD (2 ) -TD (1) ) 

IF  (IREG.EQ.2)  A  -  SLOPS ( LM) + (C2ASY+ . 15) / 
i  (30. *PI/10O .-TD  (2) ) 

END  IF 

ENDIF 

RETURN 

END 


FILE:  COEFS.FOR 


Subroutine  to  calculate  unsteady  lift/moment  coefficients 
for  linear  (CZl)  equations. 


SUBROUTINE  COEFS  LIN (LM, THETA. S, KV, LAM, SIG, ALPHA) 


INCLUDE 

INCLUDE 

CHARACTER 

REAL 


P ARAM. INC 
GLBBLK . INC 
LM*1 

THET A,  S ,  KV,  LAM ,  S I G .  A  LP  H  A 


IF  ( (FOIL. EQ. •OA212') .AND. (LM.EQ. ’L’) )  THEN 

Coefficients  from  Rogers,  "Applications  of  an  Analytic  Stall 
Model  to  Time-History  and  Eigenvalue  Analysis  of  Rotor  Blades", 
Journal  of  the  American  Helicopter  Society,  January  1984, 
page  26,  equations  (4)  to  (3) . 


S  -  5. 
KV  -  0. 
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LAM  -  0.2 

SIG  -  (SLOPE(LM)  -  4.*(1.+1.43»DCZS(LM,0,THETA)))/LAM 
ALPHA  -  0. 

ELSEir  (FOIL.EQ. •NAC12')  THEN 
IF  (LM.EQ.'L')  THEN 

Coefficients  from  Petot,  "Dynamic  Stall  Modeling  of  the 
NACA  0012  Profile",  Short  Note,  page  S8,  equations  (2) 
and  (3),  converted  to  same  notation  as  Rogers  (above). 

S  -  0.09*(180./PI) 

S  -  PI 
KV  -  PI/2. 

LAM  -  0.2 
LAM  -  0.15 

SIG  -  (0.08-0.13*DCL0) "(ISQ./PI) /LAM 
SIG  -  SLOPE (LM) 

ALPHA  -  .5 
ALPHA  -  .55 

ELSEIF  ( (FOIL.EQ. 'NAC12') .AND. (LM.EQ. 'M') )  THEN 
S  -  -0.0304*180. /PI 
S  -  -PI/4. 

KV  -  -3.*PI/16. 

LAM  «  0. 

SIG  -  0.0089*180. /PI 

IF  ( (THETA. GT. ( 13 . *PI/ 180 . > ) .AND. ( .NOT. LINEAR) ) 
i  SIG-SIG-. 00067*180. /PI*(THETA*180. /PI-13.) /LAM 

SIG  -  -PI/4. 

ALPHA  -  1. 

GAM  -0.16 

IF  (THETA. GT. (13. *PI/180.) )  GAM-GAM+ . 035* 

&  (THETA*180. /PI-13.) 

ALF  -  1. /11.5/GAM 
C  -  3.5 

IF  (THETA. GT. (15. 6*PI/180.) )  C-C+3 . /PI*ATAN ( 

«  SQRT(3.) /1.2* (THETA*180./PI-15.6) ) 

ENDIF 
END  IF 

RETURN 

END 


Subroutine  to  calculate  unsteady  lift/monent  coefficients 
for  non-linear  (CZ2)  equations. 


SUBROUTINE  COEFS  NON (THETA, DCLO, LM, AA, RR, EE, Bl, B2, B3) 


INCLODB 

INCLODB 

RXJOi 

REAL 

CHARACTER*! 

REAL 

REAL 

COMMON 


P ARAM. INC 
GLBBLK . INC 

THETA, DCLO , AA, RR, EE, Bl , B2 , B3 
GAM,  ALF ,  C,  LI ,  L2 ,  L3 ,  L4 ,  L5 ,  L6 

LM 

AOL,  AIL,  ROL,  RIL,  EOL,  EIL 

AOM,  AIM,  ROM,  RIM,  EOM,  ElM 

/  COEFBLK  /  AOL, AIL, ROL, RIL, EOL, EIL, 
AOM,  AIM,  ROM,  RIM,  EOM,  ElM 


IF  (ATYPE.EQ.O)  THEN 

Coefficients  from  Rogers,  "Applications  of  an  Analytic  Stall 
Model  to  Time-History  and  Eigenvalue  Analysis  of  Rotor  Blades", 
Journal  of  the  American  Helicopter  Society,  January  1984, 


ooooooooo  o  no 


page  26,  equations  (4)  to  (8)  for  airfoil  type  OA212. 

GAM  -  0.1 

IF  (THETA. GT. (13. *PI/180.))  GAM-GAM+0 . 023* (THETA* 

&  (180./PI)-13.) 

ALF  -  0.105/GAM 
C  -  2. 

IF  (THETA. GT. (13. *PI/180.) )  C-C-5 . 1 *ATAN ( 1 . 21  * 

£  (THETA*(180./PI)-13.)) 


AA  -  2.*ALF*GAM 
RR  -  GAM**2* (l.+ALF**2) 
EE  -  RR*C 
B1  -  0. 

B2  -  0. 

B3  -  0. 

ELSE 

IF  (ATYPE.EQ.l)  THEN 


Coefficients  from  Petot,  "Dynamic  Stall  Modeling  of  the 
NACA  0012  Profile,"  Short  Note,  Recherches  Aerospatiales, 
1984-6,  pp.  55-58,  with  corrections  for  low  Reynold's  number 
from  Petot  £  Loiseau,  "Succesive  Smoothing  Algorithm  for 
Constructing  the  Semi-Empirical  Model  Developed  at  ONERA  to 
Predict  Unsteady  Aerodynamic  Forces,"  NASA  TM-76681,  March 
1982,  for  airfoil  type  NACA  0012. 


C 


C 


LI  -  .25 
L2  -  .10 

IF  (RE.LE.3.4E5)  L2  -  .40 
L3  -  .20 
L4  -  .10 

IF  (RE.LT.3.4E5)  L4  -  ,23 
L5  ■  0 . 

L6  -  -.60 

IF  (RE.LT.3.4E5)  L6  -  -2.7 
ELSEIF  (LM.EQ.'L')  THEN 
LI  -  AOL 
L2  -  AIL 
L3  -  ROL 
L4  -  RIL 
L5  -  EOL 
L6  -  EIL 

ELSEIF  (LM.EQ.'M')  THEN 
LI  -  AOM 
L2  «  AIM 
L3  -  ROM 
L4  -  RIM 
LS  -  EOM 
L6  -  ElM 
END  IF 

AA  -  tl  ♦  L2*DCL0**2 
RR  -  (L3  +  L4*DCL0**2) **2 
EE  -  L5+L6*DCL0**2 
IF  (ATYPE.LE.l)  EE  -  RR*EE 

IF  (LCONST)  THEN 
B1  -  0. 

B2  -  0. 

B3  -  0. 

ELSE 

B1  -  L2/AA 
B2  -  L4/SQRT(RR) 
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B3  -  L6/EE 

IF  (ATYPE.LE.l)  B3  -  L3*(L3* 
t  L6+2 . *L4*L5) /EE 

EMDIF 
C 

END  IF 
C 

RETURN 
END 

•FILE:  CORREC.FOR  - 

Functions  to  describe  the  spanwise  and  chordwise  distributions 
applicable  to  the  2-diimnaional  lift,  moment,  and  drag 
coefficients . 

REAL  FUNCTION  SC(XBAR) 

SC  ™  1 . 

sc  -  1.11*(1.-XBAR**9) 

RETURN 
END 

REAL  FUNCTION  CCCYBAR) 

CC  -  3.*(0.5-YBAR) **2 
RETURN 
END 

■FILE:  DRDQ.FOR  - 

SUBROUTINE  R_DERIV (BEN_TOR, VEL, AOA, FREQ, QLIT, RES, RGEOM, DRDQ) 

Subroutine  to  calculate  the  Jacobian  matrix  d (RES) /d (QLIT)  by 
numerical  estimation  of  the  derivatives. 

INPUT  VARIABLES:  BEN_TOR  -  bending/ tors ion  flag 

~VEL  ■  velocity  (m/s) 

AOA  -  root  angle  of  attac)c  (rad) 

FREQ  >  reduced  frequency  (non-dim) 

QLIT  -  modal  amplitudes  (m) 

RES  »  current  residuals  (non-dim) 

OUTPUT  VARIABLE:  DRDQ  -  numeric  derivative  matrix  (1/m) 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

INTEGER  BEN_TOR, MBT 

REAL  VEL, AOA, FREQ, QLIT (MAXMODE, 3) , RES ( 3 *MAXMODE ) , RGEOM 

REAL  VEL2, AOA2,FREQ2,QLIT2 (MAXMODE, 3) ,RES2 (3*MAXMODE) 

REAL  QBIG(MAXMODE, 3) , DRDQ (3 •MAXMODE, 3*MAXMODE) 

MBT  -  (BEN_TOR-l)*NB  +  1 

Loop  through  each  direction  of  the  components  of  the  modal 
aatplltudes,  ignoring  oscillating  components  if  steady  analysis. 

MAX  -  3 

IF  (STEADY)  MAX  -  1 
DO  30  II  «  l,NMODES 
DO  30  J1  -  1,MAX 

SIcip  if  loolcing  at  components  of  state  vector 
reserved  for  angle  of  attack/velocity  and  reduced  frequency. 

IF  ( (Il.EQ.MBT) .AND. (Jl.NE.l) )  GOTO  30 
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C  Initialize  modal  amplitude  trial  vector. 

C 

DO  10  12  -  1, MAXMODE 
DO  10  J2  -  1,3 

QLIT2(I2,J2)  -  QLIT(I2,J2) 

10  CONTINUE 

C 

C  Increment  desired  direction  of  modal  amplitude 

C  trial  vector  by  0.1% 

C 

QLIT2(I1,J1)  -  1.001*QLIT(I1, Jl) 

IF  (ABS(QLIT2(I1,  Jl)  )  .LT.l.E-4)  QLIT2  (II,  Jl) -0  . '^01 
C 

C  Calculate  new  residuals  from  modal  amplitude  trial  vector. 

C 

CALL  RESIDUAL < VEL, AOA, FREQ, QLIT2, RGEOM, RES2 , QBIG) 

C 

C  Calculate  numeric  derivatives  from  modal  amplitude  trial 

C  vector  QLIT2  and  associated  residuals  RES2. 

C 

K1  -  NMODES* (Jl-1) +11 
DO  20  I2  -  1, NMODES 
DO  20  J2  -  1,MAX 

K2  -  NMODES* <J2-1) +12 

DRDQ(K2,K1)  -  (RES2 (K2) -RES (K2) ) / (QLIT2 (II, Jl) - 
t  QLIT(I1,J1)) 

20  CONTINUE 

30  CONTINUE 

C 

C  If  steady,  skip  angle  of  attacic/velocity  and  frequency 

C  derivatives . 

C 

IF  (STEADY)  GOTO  60 
C 

C  Increment  trial  angle  of  attacic/velocity  by  0.1%  and 

C  calculate  new  residuals. 

C 

IF  (VLINES)  THEN 
AOA2  -  l.OOl+AOA 
IF  (AOA2.EQ.0.)  AOA2-0.001 

CALL  RESIDUAL (VEL, AOA2 , FREQ, QLIT, RGEOM, RES2, QBIG) 

ITT  CV 

VEL2  -  1.001*VEL 
IF  (VEL2.EQ.0.)  VEL2-0.001 

CALL  RESIDUAL ( VEL2 , AOA, FREQ, QLIT, RGEOM, RES2 , QBIG) 

ENDIF 

C 

C  Calculate  numeric  derivatives  from  trial  angle  of  attacic/velocity 
C  AOA2/VEL2  and  associated  residuals  RES2. 

C 

K1  >  NMOOES+MBT 
DO  40  Z2  -  1, NMODES 
DO  40  J2  -  1,MAX 

K2  -  NMODES* (J2-1) +12 

IF  (VLINES)  OROQ(K2,Kl)-(RES2(K2)-RES(K2) ) /(AOA2-AOA) 

IF  (.NOT. VLINES)  DRDQ (K2, Kl) - (RES2 (K2) -RES (K2) ) / 
t  (VEL2**2-VEL**2) 

40  CONTINUE 

C 

C  Increment  trial  frequency  by  0.1%  and  calculate  new  residuals. 

C 

FREQ2  -  1.001*FREQ 
IF  (FREQ2.EQ.0.)  FREQ2-0.001 

CALL  RESIDUAL (VEL, AOA, FREQ2,QLIT, RGEOM, RES2,QBIG) 
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c 

C  Calculate  numeric  derivatives  from  trial  frequency  FREQ2  and 
C  associated  residuals  R£S2 . 

C 

K1  -  2*NMODES+MBT 
DO  50  12  -  l,NMODES 
DO  50  J2  -  1,MAX 

K2  -  NMODES* (J2-1) +12 

DRDQ(K2,K1)-(RES2 (K2) -RES (K2) ) / (FREQ2-FREQ) 

50  CONTINUE 

C 

60  RETURN 

END 

C - FILE:  MASS.FOR - 

C 

SUBROUTINE  MASS (LO, HI, MPA) 

C 

C  Subroutine  to  calculate  components  of  the  flat  plate  mass  matrix 

C 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

REAL  LO,Hl,MPA, INTGRL 

C 

DO  10  I  -  1, NMODES 
DO  10  J  -  I, NMODES 

IF  ( (I.LE.NB+NT+NC) .AND. (J.LE.NB+NT+NC) )  THEN 
C 

C  Calculate  out-of-plane  mass  matrix  components. 

C 

M(1,J)  -  MPA*CHORD*LENGTH*INTGRL('XM,0,  J,0,LO,H1)  * 

C  INTGRL('YM,0,  J,0,-.5,  +  .5) 

M(J,I)  -  M<I,J) 

ELSEIF  ( (I.GT.NB+NT+NC) .AND. (J.GT.NB+NT+NC) )  THEN 
C 

C  Calculate  £ore-&-aft  mass  matrix  components. 

C 

M(I,J)  -  MPA*CHORD*LENGTH*INTGRL{’XM,0,J,0,LO,HI)* 

&  INTGRL('YM,0,J,0,-.5,  +  .5) 

M(J,I)  -  M(I,J) 

ELSE 

C 

C  Calculate  out-o£-plane/fore-4-aft  coupling 

C  mass  matrix  components. 

C 

M(I,J)  -  0. 

M(J,I)  -  0. 

BNDZF 
10  CONTINUE 

C 

RETURN 

END 

C - FILE:  MODE. FOR - 

C 

REAL  FUNCTION  rMODE(DERIV,XY,NUM, INPUT) 

C 

C  X  and  Y  variation  of  the  five  assumed  modes.  Note  that 
C  all  the  X  and  y  coordinates  have  already  been  normalized. 

C  DERIV  Indicates  what  derivative  of  the  mode  is  given. 

C 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

INTEGER  DERIV, NUM, NUMBF 
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C 


CHARACTER 

REAL 

DATA 

i 

i 


XY*1 

INPUT, RN (5) ,EPS,ALF 
RN  /  0.596864162695,1.494175614274, 
2.500246946168,3.499989319849, 
4.500000461516  / 


IF  (NUM.EQ.O)  THEN 

IF  (XY.EQ.'X’)  THEN 

IF  (DERIV.EQ.O)  THEN 

FMODE  -  1  ./3  .*  (INPUT-1 .)  **4  +  4  . (INPUT-1 .) +1 . 

ELSEIF  (OERIV.EQ.l)  THEN 

FMODE  -  4./3.* (lNPUT-1.) **3+4./3. 

ELSEIF  (DERIV.EQ.2)  THEN 
FMODE  -  4.* (INPUT-1.)* *2 
ELSEIF  (DERIV.EQ.3)  THEN 
FMODE  -  8.* (INPUT-1.) 

ELSEIF  (DERIV.EQ.4)  THEN 
FMODE  -  8. 

ELSEIF  (DERIV.GE.5)  THEN 
FMODE  -  0. 

ENDIF 

ELSEIF  (XT.EQ.’Y')  THEN 

IF  (DERIV.EQ.O)  FMODE  -  1. 

IF  (DERIV.GT.O)  FMODE  -  0. 

ENDIF 

ELSEIF  ( (XY.EQ. ‘X' ) .AND. ( (NUM.LE.NB) .OR. (NUM.GT.NB+NT+NC) ) )  THEN 


Describe  DERIV-th  derivative  of  the  spanwise,  x-variation 
of  the  bending  modes  or  fore-6-aft  modes. 

NUMBF  -  NUM 

IF  (NUM.GT.NB)  NUMBF  -  NUM  -  (NB+NT+NC) 

IF  (NUMBF. LE. 5)  EPS  -  RN(NUMBF)*PI 

IF  (NUMBF. GT. 5)  EPS  -  (REAL (NUMBF) -. 5) *PI 

ALF  -  (SINH (EPS) -SIN (EPS)) /(COSH (EPS) +COS (EPS)) 

IF  (DERIV.EQ.O)  THEN 

FMODE  -  COSH(EPS*INPUT)-ALF*SINH(EPS*INPUT)- 
£  COS (EPS*INPUT)+ALF*SIN(EPS*INPUT) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD (DERIV, 2) .EQ.l) )  THEN 
FMODE  -  (EPS**DERIV) * (SINH (EPS ‘INPUT) -ALF* 

&  COSH (EPS*INPUT)+ (SIN (EPS*INPUT)+ALF* 

&  COS (EPS*INPUT) )*((-!)**( (DERIV+3) /2) ) ) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD (DERIV, 2) .EQ.O) )  THEN 
FMODE  -  (EPS**DERIV)* (COSH (EPS*INPUT) -ALF* 

£  SINH (EPS*INPUT)+ (COS (EPS*INPUT) -ALF* 

£  SIN(BPS*INPUT) )*((-!) **( (DERIV+2) /2) ) ) 

ENDIF 

ELSEIF  ( (XY.EQ. 'X') .AND. (NUM.GT.NB) .AND. (NUM. LE.NB+NT) )  THEN 


Describe  the  DERIV-th  derivative  of  the  spanwise,  x-variation 
of  the  torsional  modes. 


XT  -  NUM  -  NB 
IF  (DERIV.EQ.O)  THEN 

FMODE  -  B(IT,l)*COS(G(IT)*INPUT)+B(IT,2)* 

£  SIN(G(IT)*INPUT)+B(IT,3) *COSH (F ( IT) ‘INPUT) + 

£  B  (IT,  4) ‘SINH  (F  (IT) ‘INPUT) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD (DERIV, 2) .EQ.l) )  THEN 
FMODE  -  (G(IT)“DERIV)‘(-B(IT,1)‘SIN(G(IT)‘ 

£  INPUT)  +B  (IT,  2)  ‘COS  (G(IT)  ‘INPUT)  )*((-!)“(  (DERIV+3)  / 

£  2)  )  +  (F(IT)  “DERIV)  ‘(B(IT,3)  ‘SINH  (F  (IT)  ‘INPUT)  + 

£  B (IT, 4) ‘COSH (F( IT) ‘INPUT) ) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD(DERIV, 2) .EQ.O) )  THEN 
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FMODE  -  (G(IT)  “DERIV)  •  (-BCT,  1)  »COS  (G(IT)  ‘INPUT) - 
&  B(IT,2) •SIN{G(IT) ‘INPUT) )•{(-!)••( {DERIV+2) /2) )+ 

i  (F  (IT)  *»DERIV)  *  (B  (IT,  3)  ‘COSH  (F  (IT)  ‘INPUT)  +B  (IT,  4)  ‘ 

&  SINK (F( IT) ‘INPUT) ) 

ENDIF 

IF  (DERIV.EQ.O)  THEN 

FMODE  -  SIN (REAL (2‘IT-l) *PI/2 . ‘INPUT) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD(DERIV,2) .EQ.l) )  THEN 
FMODE  -  COS (REAL (2*IT-1) *PI/2. ‘INPUT) ‘(REAL (2* 

&  IT-1)  *PI/2  . )  “DERIV‘  (-1)  “  (  (DERIV+3)  /2) 

ELSEIF  ( (DERIV.GT.O) .AND. (MOD(DERIV,2) .EQ.O) )  THEN 
FMODE  -  SIN(REAL(2*IT-1) *PI/2. ‘INPUT) * (REAL(2* 
i  IT-1)  *PI/2  .)  “DERIV‘  (-1)  “  (DERIV/2) 

ENDIF 

ELSEIF  ( (XY.EQ. 'X') .AND. (NUM.EQ.NB+NT+1) .AND. (NC.GE.l) )  THEN 

Describe  the  DERIV-th  derivative  of  the  spanwise,  x-variation 
of  the  1st  chordwise  bending  mode. 

IF  (DERIV.EQ.O)  FMODE  »  INPUT* ( 1 . -INPUT) 

IF  (DERIV.EQ.l)  FMODE  -  1.-2. ‘INPUT 

IF  (DERIV.EQ.2)  FMODE  -  -2. 

IF  (DERIV.GE.3)  FMODE  -  0. 

ELSEIF  ( (XY.EQ. 'X') .AND. (NUM.EQ.NB+NT+2) .AND. (NC.GE.2) )  THEN 

Describe  the  DERIV-th  derivative  of  the  spanwise,  x-variation 
of  the  2nd  chordwise  bending  mode . 

IF  (DERIV.EQ.O)  FMODE  -  INPUT“2  -  1. 

IF  (DERIV.EQ.l)  FMODE  -  2. ‘INPUT 

IF  (DERIV.EQ.2)  FMODE  -  2. 

IF  (DERIV.GE.3)  FMODE  -  0. 

ELSEIF  ( (XY.EQ. 'Y') .AND. ( (NUM.LE.NB) .OR. (NUM.GT.NB+NT+NC) ) )  THEN 

Describe  the  DERIV-th  derivative  of  the  chordwise,  y-variation 
of  the  bending  modes  or  fote-4-aft  modes. 

IF  (DERIV.EQ.O)  FMODE  -  1. 

IF  (DERIV.GE.l)  FMODE  -  0. 

ELSEIF  (  (XY.EQ. 'Y')  .AND.  (NUM.GT.NB)  .AND.  (NW.LE.NB+NT)  )  THEN 

Describe  the  DERIV-th  derivative  of  the  chordwise,  y-variation 
of  the  torsional  modes. 

IF  (DERIV.EQ.O)  FMODE  -  INPUT 

IF  (DERIV.EQ.l)  FMODE  -  1. 

IF  (DERIV.aE.2)  FMODE  -  0. 

ELSEIF  ( (XY.EQ. 'Y') .AND. (NUM.EQ.NB+NT+1) .AND. (NC.GE.l) )  THEN 

Describe  the  DERIV-th  derivative  of  the  chordwise,  y-variation 
of  the  1st  chordwise  bending  mode. 

IF  (DERIV.EQ.O)  FMODE  -  (4 . ‘INPUT* INPUT  -  1./3.) 

IF  (DERIV.EQ.l)  FMODE  -  8. ‘INPUT 

IF  (DERIV.EQ.2)  FMODE  *•  8. 

IF  (DERIV.GE.3)  FMODE  -  0. 

ELSEIF  ( (XY.EQ. 'Y') .AND. (NUM.EQ.NB+NT+2) .AND. (NC.GE.2) )  THEN 

Describe  the  DERIV-th  derivative  of  the  chordwise,  y-variation 
of  the  2nd  chordwise  bending  mode . 

IF  (DERIV.EQ.O)  FMODE  -  (2. ‘INPUT)  “2  -  1 
IF  (DERIV.EQ.l)  FMODE  -  8. ‘INPUT 
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IF  (DERIV.EQ.2)  FMODE  -  8. 
IF  (DERIV.GE.3)  FMODE  -  0. 
ELSE 

FMODE  -  0. 

END  IF 

RETURN 

END 


FILE:  QBIG.FOR  - 

SUBROUTINE  MODAL_FORCE ( VEL, AOA, FREQ, QLIT, QBIG) 

Subroutine  to  calculate  the  oscillating  components  of  the  modal 
forces . 


INPUT  VARIABLES: 


OUTPUT  VARIABLE: 


VEL  •  velocity  (m/s) 

AOA  -  root  angle  of  attac)c  (rad) 
FREQ  «  reduced  frequency  (non-dim) 
QLIT  -  modal  amplitudes  (m) 

QBIG  •  modal  forces  (N) 


INCLUDE 

INCLUDE 

REAL 

REAL 

REAL 

INCLUDE 


P ARAM. INC 
GLBBLK . INC 

VEL, AOA, FREQ, QLIT (MAXMODE, 3) , QBIG (MAXMODE, 3 ) 
THETA(3) ,HBAR(3) ,VBAR(3) 

DCL(0:2) ,CL(5) , CM (5) , CD (5) 

GAUSS . INC 


THETA: 

HBAR: 


VBAR: 


DCL: 

CL: 

CM: 

CD: 


Oscillating  components  of  real  angle  of  attacic  (rad) 
Oscillating  con^Jonents  of  1/4-chord  out-of-plane 
deflection,  non-dimensionalized  with  respect  to 
the  half-chord 

Oscillating  components  of  1/4-chord  fore-4-aft 
deflection,  non-dimensionalized  with  respect  to 
the  half-chord 

Oscillating  components  of  the  static  deviation  from 
the  linear  lift  curve  (non-dim) 

Oscillating  components  of  the  lift  coeff  (non-dim) 
Oscillating  components  of  the  moment  coeff  (non-dim) 
Oscillating  components  of  the  drag  coeff  (non-dim) 


Initialize  the  modal  forces  to  zero  value. 


DO  10  I  -  1, MAXMODE 
DO  10  J  -  1,3 

QBIG(X,J)  -  0. 
CONTINUE 


Loop  through  Gauss  integration  points  along  the  span. 

DO  60  ZGNUM  «  l,GPOINTS 

Calculate  the  non-dimensional  1/4-chord  deflection, 
angle-of-attack,  and  fore-4-aft  sinusoidal  coefficients 
at  the  Gauss  point  spanwise  location. 

XBAR  -  (GP(1GNUM)+1.) /2. 

DO  30  1-1,3 

Add  contributions  to  out-of-plane  deflection 
and  to  torsional  twist. 


HBAR(I)  -  0. 


239 


THETA ( I) -  0. 

DO  20  J  ■  1,NB+NT+NC 

HBAR(I)  -  HBAR(I)  +  QLIT ( J, I )/ (CHORD/2 .) * 

&  FMODE(0, 'X', J,XBAR) 'FMODECO, 'Y',J,+.25) 

THETA(I)  -  THETA(I)  +  QLIT (J, I ) /CHORD* 

4  FMODE(0,  'X',  J.XBAR) ‘FMODEd,  ’Y',J,  +  .25) 

20  CONTINUE 

IF  (LATAN)  THETA(I)  -  ATAN (THETA ( I ) ) 

IF  (I.EQ.l)  THETA(I) -THETA(I) +AOA 
C 

C  Add  contributions  to  fore-4-aft  deflection. 

C 

VBAR(I)  -  0. 

IF  (NF.GT.O)  THEN 

DO  25  J  -  NB+NT+NC+1,NB+NT+NC+NF 

VBARd)  -  VBAR(I)  +  QLIT  (J,  I )/ (CHORD/2  .)  * 

4  FMODE(0, •X',J,XBAR)*FMODE(0, 'Y', J,+.25) 

25  CONTINUE 

END  IF 

30  CONTINUE 

C 

C  Calculate  the  lift/moment  coefficient  sinusoidal  coefficients. 

C 

CALL  AEROF  CL',  THETA,  HBAR,  VEL,  FREQ,  LAEROF,  DCL,  CL) 

CALL  AEROF  CM', THETA, HBAR, VEL, FREQ, LAEROF ,DCL, CM) 

C 

C  Calculate  the  profile-drag  coefficient  contribution  using 

C  a  3rd-order  polynomial  fit. 

C 

CD(1)  -  4.923*ABS(THETA(1))**3  +  . 1472*THETA(1) **2  +  .042* 

4  ABS (THETA (1) )  +  .014 
CD (2)  -  0. 

CD(3)  -  0. 

C 

C  Calculate  the  induced-drag  coefficient  contribution. 

C 

CD(1)  -  CD(1)  +  CL(l)**2/PI/(2.*LENGTH/CHORD) 

C 

C  Incorporate  spanwise  correction  for  the  force  dropoff. 

C 

DUMMY  -  1. 

IF  (CORREC)  DUMMY  -  SC(XBAR) 

C 

C  Add  contributions  from  the  lift,  moment,  and  drag  at  the 

C  current  Gauss  point  spanwise  location  to  the  modal  force. 

C 

DO  50  I  -  l,NMODES 
DO  50  J  -  1,3 

IF  (I.LE.NB+NT+NC)  THEN 

QBIG<I,J)  -  QBIGd,  J)*GW(IGNUM)/2.*{.5*RROA* 

4  VEL* *2 ‘CHORD ‘LENGTH) * ( (CL(J) *COS (AOA) +CD ( J) ‘ 

4  SIN(AOA) ) ‘FMODE(0,  ’  Y ' ,  I,  ^  .  25) +<31  ( J)  ‘ 

4  FMODEd,  •Y',I,  +  .25))  •FMODE(0,  'X',  I,XBAR)  ‘DUMMY 

ELSE 

QBIGd,J)  -  QBIG(I,J)+GW(IGNUM) /2.‘(.5‘RHOA‘ 

4  VEL“2‘CHORD‘LENGTH)  *  (-CL(J)  ‘SIN  (AOA) +CD  ( J)  ‘ 

4  COS(AOA))*FMODE(0, ’ Y ' , I, + . 25) *FMODE (0, 'X',I,XBAR)‘ 

4  DUMMY 

ENDIF 

50  CONTINUE 

60  CONTINUE 
C 

RETURN 

END 
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C - file  :  RESIDUAL.  FOR  - 

C 

SUBROUTINE  RESIDUAL (VEL, AOA, FREQ, QLIT, RGEOM, RES,  QBIG) 

C 

C  Subroutine  to  calculate  the  residuals  used  in  the  Newton-Raphson 
C  solver. 

C 

C  INPUT  VARIABLES:  VEL  -  velocity  (m/s) 

C  AOA  -  root  angle  of  attacic  (rad) 

C  FREQ  -  reduced  frequency  (non-dim) 

C  QLIT  -  modal  amplitudes  (m) 

C  OUTPUT  VARIABLES:  RES  “  residuals,  non-dimensionalized  by 

C  l/2*rho»(V*«2) ‘area 

C  QBIG  *  modal  forces,  non-dimensionalized  by 

C  l/2*rho* (V**2) *area 


C 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

REAL  VEL, AOA, FREQ, QLIT (MAXMODE, 3) , RGEOM 

REAL  RES (3*MAXMODE) ,QBIG(MAXMODE,  3) 

C 

C  Calculate  the  modal  forces  QBIG  using  subroutine  MODAL_FORCE, 

C  which  are  functions  of  the  velocity  VEL,  the  root  angle  of  attack 

C  AOA,  the  reduced  frequency  FREQ,  and  the  modal  amplitudes  QLIT. 

C 

CALL  MODAL_FORCE (VEL, AOA, FREQ, QLIT, QBIG) 

C 

DO  30  II  -  1, MAXMODE 

DO  30  12  -  II, MAXMODE 

KDUMdl,  12)  -  K(I1,  12) 

C 

C  Add  corrections  to  stiffness  matrix  for  geometric 

C  nonlinearities. 

C 

IF  (LGEOM)  THEN 

IF  ( (Il.GT.NB) .AND. (Il.LE.NB+NT) .AND. 

(I2.GT.NB) .AND. (12 .LE.NB+NT) )  THEN 
DO  10  13  -  1,NB 
DO  10  14  -  1,NB 

KDUMdl,  12)  -  KDUMdl,  12)  +  RGEOM**2* 

R(I3, 14, Il-NB, I2-NB) ‘OLIT (13, 1) ‘QLIT (14, 1) 

CONTINUE 

ELSEIF  ( (Il.GT.NB) .AND. (Il.LE.NB+NT) .AND. 

(I2.GT.NB+NT+NC) .AND. ( I2 . LE . NB+NT+NC+NF) )  THEN 
DO  20  13  -  1,NB 

KDUMdl,  12)  -  KDUMdl,  12)  +  RGEOM* 

H(I3, Il-NB, I2-NB-NT-NC) ’QLIT (13, 1) 

CONTINUE 
ENDIF 
ENDXF 
C 

RDUM(Z2,I1)  -  KDUMdl, 12) 

30  CONTINUE 

C 

KTTO  -  KDUM(NB+1,NB+1) 

C 

C  Calculate  the  residuals  by  including  the  contributions 

C  of  the  mass  and  stiffness  matrices  with  the  modal  forces. 

C 

DO  60  J  -  1,3 
C 

C  Add  correction  to  nonlinear  stiffness  matrix  for  cubic 

C  stiffening. 
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IF  (J.EQ.l)  KDUM(NB+1,NB+1)  -  KTTO  +  KTTCUBE* 

(  (QLIT(NB+1,1)*»2+1.5*QLIT(NB+1,2) **2+1.5* 

i  QLIT(NB+1,3) **2) 

IF  (J.NE.l)  KDUM(NB+1,NB+1)  -  KTTO  +  KTTCUBE* 

«  (3.»QLIT(KB+1, 1) **2+.75*QLIT(NB+1,2) **2+ 

&  .75*QLIT(NB+1,3) **2) 

C 

00  50  I  -  1,NM0DES 

II  -  NMODES* (J-1) +I 
IF  ( (STEADY) .AND. (J.NE.l) )  THEN 
RES(II)  -  0. 

ELSE 

RES(II)  -  -QBIG(I,J) 

DO  40  L  -  1, NMODES 

RES(II)  -  RES(II)+KDUM(I,L) *QLIT(L, J) 

OMEGA  -  FREQ *VEL/( CHORD/ 2.) 

IF  (J.NE.l)  RES(II)-RES(II)-0MEGA**2* 

«  M(I,L)  *QLIT(L,  J) 

40  CONTINUE 

EKDIF 

RES (II)  -  R£S(II)/(.5*RH0A*VEL**2*CH0RD*LENGTH) 

QBIG(I,J)  -  QBIGd,  J)  /  (  .5*RHOA*VEL**2*CHORD*LENGTH) 
CONTINUE 
CONTINUE 

RETURN 
END 

-FILE;  SETMODE. FOR  - 

SUBROUTINE  SETMODE (Dll, D6€, CHORD, LENGTH, NT, NTMAX, KT, G, F, B, ERR) 

Subroutine  to  compute  the  coefficients  G(I),  F(I),  and  B(I,4)  of 
the  torsional  mode  shapes  for  a  laminate,  given  its  aspect  ratio 
and  its  bending  and  torsion  stiffness  properties.  Dll  and  D66, 
based  on  Crawley  &  Dugundji,  "Frequency  Determination  and  Non- 
Dimensionalization  for  Con^osite  Cantilever  Plates,"  Journal 
of  Sound  and  Vibration,  Vol.  72,  No.  1,  1980,  pp.  1-10. 

INTEGER  NT,NTMAX 
REAL  Dll, 066, CHORD, LENGTH 

REAL  RT(NTMAX),G(NTMAX),r(NTMAX),B(NTMAX, 4),ERR(NTMAX) 

REAL  P1,BETA,A(4,4) ,BDUM(4) ,XDUM(4) ,R0,R1,DELTA 
LOGICAL  CONVERGED 

Initialize  warping  stiffness  influence  coefficient. 

PI  -  ABS(ACOS(-l.)) 

BETA  -  Dll*CHORD**2/ (48 .*D66*LENGTH**2) 

Loop  thru  torsion  inodes,  calculating  appropriate  coeffs. 

DO  30  X  -  1,NT 

Initialize  guesses  at  non-dimensional  natural  frequency 
(start  a  little  above  the  value  for  zero  warping  stiffness) 
and  sin/cos  coefficient  -  derived  by  inverting  eqn  [17] 
from  Crawley  £  Dugundji. 

IF  (I.EQ.l)  KT(I)  -  PI/2. 

IF  (I.NE.l)  KT(I)  -  KT(I-l) *REAL(2*I-1) / 

£  REAL(2*I-3)  *  1.20 

G(I)  -  SQRT((SQRT(1.+4.*BETA*KT(1)**2)-1,)/(2.*BETA)) 
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Fd)  -  SQRT  (Gd)  **2+1 . /BETA) 

COMVERGED  -  .FALSE. 

DO  WHILE  ( . NOT . CONVERGED ) 

Calculate  residual,  RO  -  i.e.  determinant  of  4x4  matrix  in 
eqn  (18]  of  Crawley  &  Dugundji  -  that  is  to  be  driven 
to  zero  (i.e.  to  maJce  matrix  singular,  i.e.  a  natural 
mode).  Also  calculate  derivative  of  residual  w.r.t.  G(I), 

R1 .  Both  calculations  done  by  Matheinatica™. 

RO  -  cosh(Fd)  )  •*2*F(r)  **2*6(1)  **2  -  F (I)  **2*G (I)  **2* 
i  3inh(F(I))**2  +  cosh(F(l))*F(I)**4*Cos(G(I))  + 

«  cosh(F(I) )  *G(I)  **4*Cos(G(I) )  +  Fd)  **2*G(I)  **2* 

«  Cos(G{l))**2  +  Fd)**3*G(I)*sinh(F(I))*Sln(G(r))  - 

£  F(I) *G(I) **3*sinh(F(I) ) *Sin(G(I) )  +F(I)**2* 

£  Gd)  **2*Sin(Gd) )  **2 

R1  -  2*cosh(Fd; )  **2*Fd)  **2*6(1)  +  2*cosh (F (I)  )  **2* 

£  G(I)**3  -  2*Fd)  **2*Gd)  *sinh(Fd) )  **2  -  2*Gd)**3* 

£  sinh(Fdl)**2  +  4*cosh(Fd) )  *Fd)  **2*6(1)  *Cos(Gd) )  + 

£  4*C03h(Fd) )  *Gd)  **3*Cos(Gd) )  +  2*Fd)**3*Gd)* 

£  3inh(Fd) )  *Cos(Gd) )  -  F (I)  *6 (I)  **3*sinh (F (I) )  * 

£  Coa(Gd))  +  (G(I)**5*sinh(Fd))*Cos(G(I)))/Fd)  + 

£  2*F(I) **2*6(1) *Co3(G(I) ) **2  +  2*6(I)**3* 

£  Cos(Gd))**2  -  cosh(Fd) )  *Fd)  **4*Sin(Gd>  >  t 

£  cosh{Fd) )  *Fd)  **2*Gd)  **2*Sin(G(r)  )  -  2*coah  (F  d) )  * 

£  Gd)  **4*Sin(G(I) )  +  F d)  **3*sinh (F d) )  *Sin  (G (I) )  - 

£  (Gd)  **4*sinh(Fd)  )  *Sin(G(I>)  )/Fd>  +  2*F  (I)  **2*Gd)  * 

£  Sin(Gd))**2  +  2*Gd)**3*Sin(G(l))**2 

Apply  Newton's  Method  and  test  relative  convergence. 

DELTA  -  RO/Rl 

Gd)  -  Gd)  -  DELTA 

Fd)  -  SORT  (Gd)  **2+1. /BETA) 

IF  (  (A8S  (DELTA/Gd)  )  .LT.  (l.E-7))  .AND.  (ABS  (RO/ 

£  (F(I)**4*C0SH(F(1)))) .LT. (l.E-6)))  CONVERGED- . TRUE . 

END  DO 

Calculate  converged  value  of  non-dimensional  natural  frequency. 
KTd)  -  Gd)  *SQRT(1.+BETA*G(I)  **2) 

Set  up  matrix  equation  to  solve  for  the  mode  shape,  i.e. 
eqn  C18I  from  Crawley  £  Dugundji  with  the  4th  row  of  the 
matrix  equation  converted  to  reflect  a  non-dimensional  tip 
deflection  of  1. 


A(l,l)  -  1. 

A(l,2)  -  0. 

Atl,3)  -  1. 

A(l,4)  -  0. 

A(2,l)  -  0. 

A(2,2)  -  Gd) 

A(2,3)  -  0. 

A(2,4)  -  Fd) 

A(3,l)  -  -Gd)**2*COS(Gd)) 
A(3,2)  -  -Gd)**2*SIN(Gd)) 
A<3,3)  -  Fd)**2*COSH(rd)) 
A(3,4)  -  Fd)**2*SlNH(Fd)) 
A(4,l)  •  COS(Gd)) 

A(4,2)  -  SIN(Gd)) 

A(4,3)  -  COSH(Fd)) 

A(4,4)  -  SINH(Fd)) 


243 


om  o  oooooooo  no  oojooooo  oooo 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


20 


BDUM<1)  -  0. 

BDUM(2)  -  0. 

BDUM(3)  -  0. 

BDUM(4)  -  1. 

1st  row  converted  to  ND  tip  deflection  of  1. 

A(l,l)  -  COS(G(I) ) 

A(l,2)  -  SIN(G(I)) 

A(l,3)  -  COSH(F(I)) 

A(l,4)  -  SINH(F(I>  ) 

A(4,l)  -  F(I) **2*G(I) *SIN(G(1) ) 

A(4,2)  -  -F(I)**2*G(I)*COS(G(l)) 

A(4,3)  -  F(l) *G(I) **2*SINH(F<1) ) 

A<4,4)  -  F(l) *G(I) **2*COSH(F(l) ) 

BDUM(l)  -  1. 

BDUM(4)  -  0. 

CALL  SOLVE(A,BDUM,XDUM,4,l,4) 

DO  20  J  -  1,4 

B(I,J)  -  XDUM(J) 

CONTINUE 


Set  the  error  function  equal  to  the  unresolved  4th  equation 
of  eqn  (18]  from  Crawley  &  Dugundji. 

ERR(I)  -  B(I,1)*F(I)**2*G(I)*SIN(G(I))  - 
«  B(I,2) *F(I) **2*G(I) *COS(G(I) )  +  B (1, 3) *F (I) * 

«  G(I) **2*SINH(F{I) )  +  B(I,4)*F(I)*G(r)**2*COSH(F(I)) 

Unresolved  1st  equation. 

ERR(I)  -  B(I,1)  +  B(I,3) 

CONTINUE 


RETURN 

END 


FILE:  SETUP. FOR 


REAL  FUNCTION  INTGRL (XY, MODEl, DERIV1,M0DE2, DERIV2, LO, HI) 


Subroutine  to  integrate  numerically  the  DERIVl-th  derivative 
of  the  XY-variation  of  MODEl  with  the  DERlV2-th  derivative  of 
the  XY-variation  of  MODE2  over  the  normalized  interval  [LO,HI], 
using  a  GPOINTS  Gaussian  quadrature  scheme  ("Handbook  of 
Mathematical  Functions, "Abramowitz  and  Stegun  (eds.).  Table 
25.4,  p.916) . 


INTEGER 

REAL 

CHARACTER 

INCLUDE 


MODE 1 , MODE2 , DERI VI , DERI V2 

LO, HI, POINT 

XY*1 

GAUSS . INC 


INTGRL  -  0. 

DO  10  I  -  1, GPOINTS 

POINT-  (GP{I)*(HI-LO)+HI+LO)/2. 

INTGRL  -  INTGRL  +  GM(I) *FMODE{DERIVl,XY, MODEl, POINT) * 
t  FMODE (DERIV2,XY,MODE2, POINT) *(HI-LO) /2. 

CONTINUE 
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RETURN 

END 
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REAL  FUNCTION  SC_INT (MODEl,MODE2) 

Subroutine  to  integrate  numerically  the  X-variation  of  MODEl  with 
the  X-variation  of  M0DE2  over  the  normalired  interval  [0,1], 
with  spanwise  correction  SC(X)  included  in  the  integral, 
using  a  GPOINTS  Gaussian  quadrature  scheme  ("Handbook  of 
Mathematical  Functions, "Abramowitz  and  Stegun  (eds.).  Table 
25.4,  p.916) . 

INTEGER  MODEl, MOOE2 

REAL  POINT 

INCLUDE  GAUSS . INC 

SC  INT  -  0. 

DO~10  I  -  1, GPOINTS 

POINT  -  (GP<I)+1.) 12. 

SC_INT  -  SC_INT  +  GWd) ‘FMODEJO, 'X*, MODEl, POINT)  * 

&  FMODE(0, 'X',MODE2, POINT) /2 . ‘SC (POINT) 

CONTINUE 

RETURN 

END 


FILE:  STATIC. FOR 


SUBROUTINE  STATIC (LAYUP, LSTRUC,TRATIO, lERR) 

Subroutine  to  calculate  mass  and  stiffness  matrices  and  to  run 
static  deflection  and  free  vibration  analyses. 


INCLUDE 

INCLUDE 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

LOGICAL 

CHARACTER 

INCLUDE 


PARAM.INC 
GLBBLK . INC 

TRATIO, STYLO, ELFOAM, ETFOAM, NULTFOAM, GLTFOAM 
RHOFOAM, THETA (MAXPLIES) 

ZU(MAXPLIES) , ZL(MAXPLIES) 

EL (MAXPLIES) ,ET (MAXPLIES) , NULT (MAXPLIES) 

GLT (MAXPLIES ) ,RHO (MAXPLIES ) ,QU11 (MAXPLIES) 

QU12 (MAXPLIES) ,QU22 (MAXPLIES) ,QU66 (MAXPLIES) 

QT (3, 3, MAXPLIES) ,ERR(NTMAX) 

A(3,3),D(3,3),INTGRL 

MPA, DFOAM(3,3) ,MFOAM (MAXMODE, MAXMODE) 

KFOAM (MAXMODE, MAXMODE) , QLIT (MAXMODE) 

DRDQ (MAXMODE, MAXMODE) , DQ (MAXMODE) , RES (MAXMODE) 
IERR,NPLIES 

LSTRUC, EQUAL, CONVERGED 
LAYUP *2 5, ANSWER*!, FILENAME*25 
GAUSS . INC 


Loop  through  flat  plate  (Il-l)  and  NACA  wing  (11-2)  analyses. 

DO  440  II  -  1,2 
IF  (Il.EQ.l)  THEN 

If  first  loop,  then  calculate  flat  plate  mass  and  stiffness 
properties.  Begin  by  reading  in  foam  and  ply  data  from  input  file 
and  creating  unidirectional  Q-values  [QU]  and  rotated  Q-values, 
ie.  Q-theta  [QT]  for  each  ply. 

FILENAME  -  TRIM (LAYUP) //' .DAT  ' 

OPEN ( 2 ,  FILE-TRIM (FILENAME) , STATUS- ’ OLD ' , FORM- ' FORMATTED ’ , 
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&  lOSTAT-IERR) 

IF  (lEaR.NE.O)  GOTO  999 

WRITE (*,' (/2A) ' )  'Layup  data  taken  from  file  TRIM (FILENAME) 
READ (2, *)  CHORD, LENGTH, NPLIES, LAMBDA, KTTCUBE 

READ (2, *)  TRATIO, STYLO, ELFOAM, ETFOAM, NULTFOAM, GLTFOAM, RHOFOAM 
DO  10  I  -  1, NPLIES 

READ(2, *)  THETA (I) , 2U (I) , ZL ( I) , EL ( 1) , ET ( I) ,NULT(I) , 

&  GLTd)  ,RHO(I) 

THETA(l)  -  THETA(I) *PI/180. 

CALL  QUCON(EL<I) ,ET(I),NULT(1),GLT(I) ,QU11(I) ,QU12(I) , 
i  QU22 (I) ,QU66(1) ) 

CALL  QTCON(I,THETA(I) ,QU11(I) ,QU12(I) ,QU22 (I) , QU66 (I) , QT) 

10  CONTINUE 
CLOSE (2) 

C 

lOUT  -  0 

IF  (LSTRUC)  THEN 
C 

C  Output  wing  properties. 

C 

20  WRITE ( *, ' (A, $) ' )  '  Output  engineering  properties  [2]  '// 

&  'to  file  or  [9]  to  screen  ?  ' 

READ(*, *,ERR-20)  lOUT 

IF  ( (IOUT.NE.2) .AND. (lOUT.NE. 9) )  GOTO  20 
IF  (IOUT.EQ.2)  THEN 

FILENAME  -  TRIM ( LAYUP )//' PNAS . OUT  ' 

IF  (TRATIO. GT.O.)  FILENAME  -  TRIM ( LAYUP )//' WNAS . OUT  ' 
OPEN (UNIT-IOUT, FILE-TRIM (FILENAME) , STATUS- ' NEW ' , 

&  FORM- ' FORMATTED ' ) 

WRITE (*,*)  '  Calculated  wing  properties  being  sent  to  ', 
&  TRIM (FILENAME) 

WRITEdOUT,  '  (A,  413)  •)  'NB,  NT,  NC,  NF  - ’ , NB, NT, NC, NF 
END  IF 
END  IF 
C 

IF  (lOUT.NE.O)  THEN 
C 

C  Output  basic  overall  properties. 

C 

WRITEdOUT,  '  (/1X,A,F5.4,A,F4.1,A)  •)  '  Chord  length  -  ', 

&  CHORD,'  m-  ',  (CHORD»12./.3048),  ’  in’ 

WRITEdOUT,  '  (1X,A,F5.4,A,F4.1,A)  •)  ’  Half  span  -' , 

4  LENGTH,'  m-  ' , (LENGTH*12 . / . 3048) , ’  in’ 

WRITEdOUT,  •  (IX, A,  12) ')  ’  Number  of  plies  -  ’, NPLIES 
WRITEdOUT,  '  (A, F5.1, A) ’)  ’  Sweepback  angle  -’, 

£  LAMBDA, '  deg' 

WRITEdOUT,  '  {A,F6.3,A) ’)  '  Air  density  -  ', 

£  RHOA,  ’  )tg/m**3' 

C 

C  Output  ply  layup  in  degrees. 

C 

imiTEdOUT,  '  (A,$) ')  •  Layup  -  (' 

DO  30  I  -  1, NPLIES 

ANG  -  THETAd)*180./PI 

IF  (X.NE.l)  WRITEdOUT,  '  (A,  $) ')  '/' 

IF  (ANG.EQ.O.)  WRITEdOUT,  '  (A,  $)  •)  '0' 

IF  (ANG.NE.O.)  WRITEdOUT,  '  (SP,  13,  $)  •)  NINT  (ANG) 

30  CONTINUE 

WRITEdOUT,  '  (A,  $)  ’)  ']’ 

C 

C  Determine  if  all  the  plies  are  of  the  same  material. 

C 

EQUAL  -  .TRUE, 

DO  40  I  -  1, NPLIES 
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IF  (ELd)  .NE.EL(l)  )  EQUAL- .  FALSE  . 

IF  (ET(I) .NE.ET(l) )  EQUAL- . FALSE . 

IF  (GLT(I) .NE.GLT(l) )  EQUAL- .FALSE . 

IF  (MULT(I) .NE.NULT(l) )  EQUAL- . FALSE . 

IF  (RHO(I) .NE.RHO(l) )  EQUAL- . FALSE . 

40  CONTINUE 

IF  (EQUAL)  THEN 

WRITEdOUT,  •  (/1X,A,F4.1,A)  •)  *  GR/EPEL  - 

i  ELd)/l.E9,  '  GPa' 

WRITEdOUT,  '  dX,A,F4.1,A)  •)  *  GR/EPET  - 

£  ETd)  /1.E9,  '  GPa' 

NRITEdOUT,  '  (1X,A,F4.1,A)  •)  '  GR/EPGLT- 

«  GLTd)  /1.E9,  •  GPa* 

NRITEdOUT,  '  (IX, A, F5. 2)  •)  'GR/EP  Poisson  ratio  - 
«  NULT(l) 

WRITEdOUT,  '  (IX,  A,  F6.1,  A)  •)  '  GR/EP  density  - 

£  RHOd),'  lcg/m**3' 

BNDIF 

ENDZF 

C 

C  Calculate  flat  plate  A  and  D  matrices  (ie.  ignoring  foam 
C  properties)  . 

C 

CALL  BEND(NPLIES,ZU, ZL,QT,A,D) 

IF  dOUT.NE.O)  THEN 

WRITEdOUT,  •  (/A)  •)  '  Flat  Plate  A-matrix  [N/m]  :  ' 

DO  50  I  -  1,3 

WRITEdOUT,  •  (10X,3(1PE10.2) )  ')  (A(I,  J) ,  J-1, 3) 

50  CONTINUE 

WRITEdOUT,  '  (/A)  •)  •  Flat  Plate  D-matrix  [Nm]  ;  • 

DO  60  I  -  1,3 

WRITEdOUT,  '  (lOX,  3F7.4)  ')  (D  (I,  J) ,  J-1,  3) 

60  CONTINUE 

ENDir 
C 

C  Use  the  D-matrix  properties  to  set  up  the  natural  torsional  mode 
C  shapes . 
c 

CALL  SETMODE (D(l, 1) , D (3, 3) , CHORD, LENGTH, NT, NTMAX, KT, G, F, B, ERR) 

IF  dOUT.NE.O)  THEN 

WRITEdOUT,  '  (/IX,  A,  F8. 7)  •)  'Beta  -  '  ,D  (1, 1)  *CHORD**2/ 

£  (48.*D(3,3)*LENGTH**2) 

DO  75  I  -  1,NT 

WRITEdOUT,  '  (/1X,3(A,I1,A,F7.4)  )  ') 

£  •KM,'T-  ',KTd),';  gM,'  -  ’, 

£  Gd),  f  M,  •  -  •,F(I) 

72  FORMAT  ('  B<',I1,')  -  ( ' , SP, 4 (IX, F7 . 5) , * ]  ;  B', 

£  SS,I1, '4-8',Il, '1  -•,1PE9.2) 

WRITEdOUT, 72)  I,  (Bd,  J) ,  J-l,  4) ,  I,  I,  (Bd,  4) -B (1, 1) ) 
WRITEdOUT,  '  (A,  I1,A,  1PE9.2) ')  '  Err(',I, ')  -  ',ERR(I) 

75  CONTINUE 

EMDZr 

c 

C  Calculate  flat  plate  mass  per  unit  area  thru  the  thicluiess 

C  (l.e.  in  the  out -of -plane  Z-direction) . 

C 

MPA  -  0. 

DO  70  I  -  1,NPLIES 

MPA  -  MPA-f(ZU(I)-ZL(I))*RHO(I) 

70  CONTINUE 

C 

C  Calculate  flat  plate  mass  matrix. 

C 

CALL  MASS (0.,1., MPA) 
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c 

C  Calculate  flat  plate  stiffness  matrix. 

C 

CALL  STIFF(A,D,0., 1.) 

KTTO  -  K(NB+1,NB+1) 

KTTCUBE  -  K(NB+l,NB-t-l) ‘KTTCUBE 

C 

IF  (lOUT.NE.O)  THEN 

WRITEdOUT,  '  </A,F5.3,A/)  •)  'Flat  Plate  Mass  'll 
i  'per  unit  Area  ■  ',MPA, '  kg/m«*2' 

WRITE (lOUT, *)  'Flat  Plate  Mass  matrix  [kg]  ;  ' 

DO  80  I  -  l,NMODES 

WRITEdOUT,  •  (lOX,  32  (1PE10.2)  )  *)  (M  d,  J)  ,  J-1,  NMODES) 

80  CONTINUE 

WRITEdOUT,  •  </A,  1PE8.2,A/)  ■)  'Cubic  stiffening  -  ', 

&  KTTCUBE,'  l/m**2' 

WRITEdOUT,*)  'Flat  Plate  Stiffness  matrix  [N/m]  :  ' 

DO  90  I  -  1, NMODES 

WRITEdOUT,  '  (lOX,  32  <1PE10.2)  )  ')  (K  (I,  J)  ,  J-1,  NMODES) 

90  CONTINUE 

END  IF 
C 

C  Initialize  sums  for  numerical  integrals  used  for 

C  nonlinear,  geometric  stiffness  corrections. 

C 

DO  100  J1  -  0,NBMAX 

DO  100  J2  -  0,NBMAX 

DO  100  J3  -  1,NTMAX 

DO  100  J4  -  1,NTMAX 

R(J1, J2, J3, J4)  -  0. 

100  CONTINUE 

C 

DO  110  J1  -  0,NBMAX 

DO  110  J2  -  l.NTMAX 

DO  110  J3  -  1,NFMAX 

H(J1,J2,J3)  -  0. 

110  CONTINUE 

C 

C  Calculate  nonlinear  torsion-torsion  coupling  integrals 

C  by  Gauss  numerical  integration. 

C 

IF  (lOUT.NE.O)  WRITEdOUT,*)  '  ' 

DO  140  J1  -  0,NB 

DO  140  J2  -  J1,NB 

DO  140  J3  -  1,NT 

DO  140  J4  -  J3,NT 

DO  120  II  -  l,GPOINTS 
XBAR  -  (GP(II)-M.)/2. 

R(J1, J2, J3, J4)  -  R(J1, J2, J3, J4)  +  GWdI)/2.  * 

«  FMODE(2, 'X', J1,XBAR) •FMODE(2, ' X' , J2, XBAR) * 

t  FMODE(0, 'X',NB+J3, XBAR) ‘FMODECO, 'X',NB+J4, XBAR)  * 

&  (A(l, 1) *CHORD**2/12.-D(l, 1) ) / (CHORD*LENGTH**3) 

120  C(WTINUX 

R(J2, Jl, J3, J4)  -  R(J1, J2, J3, J4) 

R(J1, J2, J4, J3)  -  R(J1, J2, J3, J4) 

R(J2, Jl, J4, J3)  -  R(J1, J2, J3, J4) 

130  FORMAT  ( 'R ( ' , 2 (11, 'B, ' ) , II , 'T, ' , II, ' T)  -',1PE10.3) 

IF  (lOUT.NE.O)  WRITEdOUT,  130)  Jl,  J2,  J3,  J4,  R  ( Jl,  J2 ,  J3,  J4) 
140  CONTINUE 
C 

C  Calculate  nonlinear  fore/aft-torsion  cross-coupling  integrals 

C  by  Gauss  numerical  integration. 

C 
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IF  (NF.GT.O)  THEN 


IF  (lOUT.NE.O)  WRITE (lOUT, •)  •  • 

DO  170  J1  -  0,NB 

DO  170  J2  -  1,NT 

DO  170  J3  -  1,NF 

DO  150  II  -  l,GPOINTS 

XBAR  -  (GP(II)+l.:/2. 

H(J1,J2,J3)  -  H(J1,J2,J3)  +  G'’(TI)/2.  * 

(  FMODE(2, 'X',J1,XBAR)*FMODE(0.  X* ,NB+J2, XBAR) * 

i  FMODE(2, 'X',NB+NT+NC+J3,XBAR)  • 

6  (A(l, 1) *CH0RD**2/12.-D{1,1) ) /LENGTH**3 

150  CONTINUE 

160  FORMAT('H(',Il, 'B,  Ml, ’T,  Ml, ’F)  -MPE10.3) 

IF  (lOUT.NE.O)  WRITE (lOUT, 160)  Jl,  J2, J3, H ( Jl, J2, J3 ) 

170  CONTINUE 
END  IF 

C 

ELSEIF  ( (I1.EQ.2) .AND. (TRATIO.GT.O.) )  THEN 
C 

C  If  second  loop,  calculate  and  add  styrofoam  properties  to 
C  the  mass  and  stiffness  matrices.  Be^in  by  outputing  foam 

C  properties  if  the  foam  thic)(ness  is  non-zero. 

C 

IF  (lOUT.NE.O)  THEN 

WRITEdOUT,  '  (/11X,A,F4.1,A)  •)  'Styrofoam  EL  - 
«  ELFOAM/1.E6, '  MPa' 

WRITEdOUT,  '  (11X,A,F4.1, A) ')  'Styrofoam  ET  -  ', 

4  ETFOAM/1 .E6, '  MPa' 

WRITEdOUT,  '  (IIX, A, F4.1, A) ')  'Styrofoam  GLT  -  ', 

4  GLTFOAM/1.E6, '  MPa' 

WRITEdOUT,  '  (IX, A, F4. 2) ')  'Styrofoam  Poisson  ratio  -  ', 

4  NULTFOAM 

WRITEdOUT,  '  (7X, A, F4.1, A) ')  'Styrofoam  density  -  ', 

4  RHOFOAM,  '  )cg/m**3' 

WRITEdOUT,  '  (4X, A, F4. 3) ')  'Styrofoam  NACA  ratio  -  ', 

4  TRATIO 

END  IF 
C 

C  Calculate  the  contribution  to  the  mass  matrix  for  the 

C  styrofoam  bending  modes .  Note  that  the  styrofoam  does 

C  not  cover  the  first  2''  (STYLO-1/6)  of  the  span  of  the  airfoil. 

C 

DO  180  I  -  1,NB 
DO  180  J  -  I,NB 

MrOAMd,J)  -  (0.685*TRATIO*CHORD**2-(ZUd)-ZL(NPLlES))* 

4  CHORD ) *  LENGTH  * INTGRL ( ' X ' , 1 , 0 , J, 0 , STYLO, 1 . ) ‘RHOFOAM 

MFOAM(J,  I)  -  MFOAMd,J) 

180  CONTINUE 
C 

C  Calculate  the  contribution  to  the  mass  matrix  for  the 
C  styrofoam  torsion  modes. 

C 

DO  190  I  -  NB-«>l,NB-«-NT 
DO  190  J  -  I,NB-«-NT 

MrOAM(I,J)  -  (0.506*TRATIO*CHORD**2-(2U{1)-ZL(NPLIES) ) * 

4  CHORD ) / 1 2 . *  LENGTH  * INTGRL ('X',I,0,J,0, STYLO , I . ) * RHOFOAM 

MFOAM(J,I)  -  MFOAMd,J) 

190  CONTINUE 
C 

C  Calculate  the  contribution  to  the  mass  matrix  for  the 
C  styrofoam  bending-torsion  coupling. 

C 

DO  200  I  -  1,NB 
DO  200  J  -  NB+1,NB+NT 

MFOAMd,J)  -  -0.0545*RHOFOAM*TRATlO*CHORD**2*LENGTH* 


249 


& 


INTGRL ( 'X' , I, 0, J, 0, STYLO, 1 . ) 

MFOAM(J,I)  -  MFOAMd.J) 

200  CONTINUE 
C 

C  Calculate  the  contribution  to  the  maaa  matrix  for  the 
C  styrofoam  chordwise  bending  modes. 

C 

IF  (NC.GT.O)  THEN 

DO  210  I  -  1,NB+NT+NC 

DO  210  J  -  MAXO (I,NB+NT+1) ,NB+NT+NC 

MFOAMd.J)  -  (0.685*TRATIO*CHORD-(ZU(1)- 
&  ZL (NPLIES) ) ) *CHORD*LENGTH*RHOFOAM* 

&  INTGRL (' X’, I, 0,J,0, STYLO, !.)• 

&  INTGRL('Y',I,0,J,0,-.5,+  5) 

MFOAM(J,  I)  -  MFOAMd,J) 

210  CONTINUE 
ENDIF 
C 

C  Calculate  the  contribution  to  the  mass  matrix  for  the 
C  styrofoam  fore-4-aft  modes. 

C 

IF  (NF.GT.O)  THEN 
DO  220  I  -  1,NB+NT+NC+NF 

DO  220  J  -  MAXO d,NB+NT+NC+l) .NB+NT+NC+NF 
IF  (I . LE . NB+NT+NC )  THEN 
MFOAMd,J)  -  0. 

ELSE 

MFOAMd,J)  -  (0 .685*TRATIO*CHORD**2- 
6  (ZU(l) -ZL (NPLIES) ) *CHORD) ‘LENGTH* 

4  INTGRL  < ' X  M , 0 , J, 0 , STYLO, 1 . ) *RHOFOAM 

ENDIF 

MFOAM(J, I)  -  MFOAM(I,J) 

220  CONTINUE 
ENDIF 
C 

C  Calculate  unidirectional  Q-values  for  the  foam.  Because  the 

C  foam  is  isotropic,  these  are  the  same  as  the  rotated  Q-values 

C 

CALL  QUCON (ELFOAM, ETFOAM, NULTFOAM, GLTFOAM, QTllFOAM, 

4  QT12FOAM,QT22FOAM,QT66FOAM) 

C 

C  Calculate  the  contribution  to  the  stiffness  matrix  from 

C  the  styrofoam  bending  modes.  Note  that  the  styrofoam  does 

C  not  cover  the  first  2"  (STYLO-1/6)  of  the  span  of  the  airfoil 
C 

DO  230  I  -  1,NB 
DO  230  J  -  I,NB 

KrOAM(I,J)  -  2. ‘QTllFOAM* ( (0.779*TRATIO*CHORD/2.) **3- 
4  ( (ZU(1) -ZL(NPLIES) ) /2 . ) **3) /3 . ‘CHORD ‘LENGTH* 

4  INTGRL('XM,2,  J,2,STYLO,  1.)  /LENGTH“4 

iarOAM(J,I)  -  KFOAM(I,J) 

230  CONTINUE 
C 

C  Calculate  the  contribution  to  the  stiffness  matrix  from 
C  the  styrofoam  torsion  modes . 

C 

DO  240  I  -  NB+1,NB+NT 
DO  240  J  -  I,NB+NT 

KFOAM(I,J)  -  2.‘QT11FOAM/24.*((0.824‘TRATIO‘CHORD/ 

4  2. )  “3-(  (ZU(1)  -ZL  (NPLIES)  )  /2. )  »‘3)  /3  . ‘CHORD ‘LENGTH* 

4  INTGRL(’X',I,2,J,2,STYLO,l.)/LENGTH“4  +  8.‘ 

4  QT66FOAM‘ (  (0.779‘TRA  lO‘CHORD/2  . )  “3- ( (ZU(1) - 
4  ZL  (NPLIES) )  /2  . )  “3)  /3  .  ‘CHORD*LENGTH‘ 

4  INTGRL  ( 'X* ,  1, 1,  J,  1,  STYLO,  I . )  /  (LENGTH ‘CHORD)  “2 


250 


KFOAMd,  J) 


KFOAM(J,I)  - 
240  CONTINUE 
C 

C  Calculate  the  contribution  to  the  stiffness  matrix  from 
C  the  styrofoam  bending-torsion  coupling. 

C 

DO  250  I  -  1,NB 

DO  250  J  -  MAXO (I,NB+1) ,NB+NT 

KFOAMd,  J)  -  -.01585»CHORD*LENGTH*QT11FOAM»  (TRATIO* 

&  CHORD)  •*3*INTGRL('XM,2,  J,2,STYLO,  1.)  /LENGTH**4 
KFOAM(J,  I)  -  KFOAMd,J) 

250  CONTINUE 
C 

C  Calculate  the  contribution  to  the  stiffness  matrix  from 
C  the  styrofoam  chordwise  bending  modes. 

C 

IF  (NC.GT.O)  THEN 

DO  260  I  -  1,NB+NT+NC 

DO  260  J  -  MAXO d,NB+NT+l) ,NB+NT+NC 

KFOAMd, J)  -  2.»CHORD*LENGTH*((.779*TRATIO*CHORD/ 

6  2.) **3-( (ZU(l)-ZL(NPLIES) ) /2.) **3) /3 . * (QTllFOAM/ 

6  (LENGTH*«4) •INTGRL( 'X* , 1,2, J, 2,  STYLO, 1 . ) * 

&  INTGRLCY',I,0,J,0,-.5,  +  .5)  +  QT22FOAM/ 

i  (CHORD**4) *INTGRL( 'X* , I, 0, J, 0,  STYLO,  1. ) * 
i  INTGRL('Y',I,2, J,2,-.5,+.5)  +  4.*QT66FOAM/ 

4  (LENGTH ‘CHORD) **2*INTGRL( 'X* , I, 1, J, 1, STYLO, 1 . ) * 

4  INTGRL('Y',I,l,J,l,-.5,+.5)  +QT12FOAM/ 

4  ( LENGTH*CHORD ) *  *2  * ( INTGRL ('X’,I,2,J,0, STYLO, 1 . ) * 

4  INTGRL(  'YM,0,  J,2,-.5,  +  .5)+INTGRL(  •X’,I,0,  J,2, 

4  STYLO, 1.) *INTGRL( ’Y', 1,2,  J,0,  -  .5,  +  .5)  )  ) 

KrOAM(J,I)  -  KFOAMd,  J) 

260  CONTINUE 
END  IF 
C 

C  Calculate  the  contribution  to  the  stiffness  matrix  from 
C  the  styrofoam  fore-4-aft  modes. 

C 

IF  (NF.GT.O)  THEN 
DO  270  I  -  1 , NB+NT+NC+NF 
DO  270  J  -  MAXO (I,NB+NT+NC+1) , NB+NT+NC+NF 
IF  (I.LE.NB+NT+NC)  THEN 
KFOAMd, J)  -  0. 

ELSE 

KFOAMd,  J)  -  QTllFOAM*  (O.605*TRATIO* 

4  CHORD- (ZU(1) -ZL(NPLIES) ) ) * (CHORD**2/12 . ) * 

4  CHORD*LENGTH*INTGRL{ ’X'. I, 2, J, 2, STYLO, 1 . ) / 

4  LENGTH**4 

BNDIF 

KrOAM(J, I)  -  KrOAM(I,J) 

270  CONTINUE 
ENDZr 

c 

C  Cosiblne  flat  plate  and  styrofoam  stiffness  and  mass  matrices 
C  to  create  combines  mass  and  stiffness  matrices. 

C 

DO  290  I  -  l,NMOOES 
DO  280  J  -  l,NMODES 

M(I,J)  -  M(I,  J)+MFOAMd,  J) 

K{I,J)  -  K(I,  J)+KFOAMd,  J) 

280  CONTINUE 

KTTO  -  K(NB+1,NB+1) 

C 

IF  (lOUT.NE.O)  THEN 

NRITEdOUT,  '  (/A) ')  •  Styrofoam  Mass  matrix  I)ig]  :  ' 
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DO  290  I  -  l,NMODES 

WRITEdOUT,  '  (10X,13(1PE10.2)  )  ’) 

(  (MFOAMd,  J)  ,  J-l,NMODES) 

290  CONTINUE 

C 

WRITE (TOUT, ’ (/A) ' )  '  Styrofoam  Stiffness  matrix  [N/m]  :  ' 

DO  300  I  -  l.NMODES 

WRITEdOUT,  ■  dOX,  13dPE10.2)  )  ') 

&  (KFOAMd,  J)  ,  J-l,NMODES) 

300  CONTINUE 

C 

WRITEdOUT,  •  (/A) ')  •  Combined  Total  Mass  matrix  [kg]  ;  ' 

DO  310  I  -  l.NMODES 

WRITEdOUT,  •  d0X,13dPE10.2))  ')  <M  d,  J)  ,  J-1,  NMODES) 

310  CONTINUE 

C 

WRITEdOUT,  '  (/A)  ' )  •  Combined  Total  Stiffness  '// 
i  'matrix  [N/m]  :  * 

DO  320  I  -  1, NMODES 

WRITEdOUT,  '  d0X,13(lPE10.2)  )  ')  (K  (I,  J)  ,  J-1,  NMODES) 

320  CONTINUE 

END  IF 
C 

ELSEIF  ( dl.EQ.2) .AND. (TRATIO.LE.O.) )  THEN 
C 

C  Quit  on  second  loop  if  only  flat  plate. 

C 

GOTO  440 
END  IF 
C 

C  Skip  static  and  vibration  analyses  if  no  diagnostics  requested. 
C 

IF  dOUT.EQ.O)  GOTO  440 
C 

C  Calculate  plate  and/or  wing  free  vibration  modes. 

C 

IF  (Il.EQ.l)  WRITE(*, ' (A, S) ')  '  Do  plate  ' 

IF  dl.EQ.2)  WRITE(*,  '  (A,  5) ')  ’  Do  wing  ' 

WRITE(*, * (A, $) ' )  'free  vibration  analysis  ?  ' 

READ(*, ' (Al) ')  ANSWER 

C 

IF  ( (ANSWER. EQ. 'Y') .OR. (ANSWER. EQ. 'y') )  THEN 
IP  -  0 

IF  (LGEOM)  THEN 
IP  -  100 

322  WRITE(*, ' (A,I1,A,S) ')  '  Bending  mode  (0-',NB, ')  ?  ' 

READ(*, *,ERR-322)  NBGEO 

IF  ( (NBGEO.lt. 0) .OR. (NBGEO. GT.NB) )  GOTO  322 
325  WRITE(*, ' (A, $) ')  '  Max  tip  deflection  (cm)  ?  ' 

READ(*, *,ERR-325)  WTIPMAX 
BNDZF 

C 

IF  (Il.EQ.l)  WRITEdOUT,  '  (/A,  $) ')  '  Plate  ' 

IF  (I1.EQ.2)  WRITEdOUT,  '  {/A,  S>  •)  '  Wing  ' 

WRITEdOUT,  '  (A, $) ')  'free  vibration  freqs' 

IF  (LGEOM)  WRITEdOUT,*)  '  (LH  column  -  tip  deflec  in  cm):' 
IF  (.NOT. LGEOM)  WRITEdOUT,*)  '  and  mode  shapes:  ' 

C 

QGEO  -  0. 

DO  345  II  -  0,IP 

IF  (IP.NE.O)  QGEO  -  REAL (II) /REAL (IP) *WTIPMAX/100./ 
t  FMODE(0, 'X', NBGEO, l.)/FMODE(0, ' Y' , NBGEO, 0 . ) 

C 

C  Set  up  dummy  mass  4  stiffness  matrices. 
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DO  330  I  -  1, MAXMODE 
DO  330  J  -  I, MAXMODE 

Add  linear  contributions. 

MDUM(I,J)  -  M(I,J) 

KDUM(I,J)  -  K(I,J) 

Add  nonlinear  contributions  due  to  tip  deflection. 
IF  (LGEOM)  THEN 

IF  ( (I.GT.NB) .AND. (I.LE.NB+NT) .AND. 

(J.GT.NB) .AND. (J.LE.NB+NT> )  THEN 
KDtJM(I,J)  -  KDUM(I,J)  + 

R(NBGEO,NBGEO, I-NB, J-NB) •QGEO**2 
ELSEIF  ( (I.GT.NB) .AND. (I.LE.NB+NT) .AND. 
(J.GT.NB+NT+NC) .AND. ( J . LE . NB+NT+NC+NF) )  THEN 
KDUM(I,J)  -  KDUM(I,J)  + 

H (NBGEO, I-NB, J-NB-NT-NC) *QGEO 
END  IF 
END  IF 

MDUM(J,I)  -  MDUM(I,J) 

KDUM(J,I)  -  KDUMd.J) 

CONTINUE 

Call  EISPACK  eigenvalue  solver. 

CALL  RSG (MAXMODE, NMODES, KDUM, MDUM, FVIB, 1 , QVIB, 
FV1,FV2, lERR) 

Convert  to  Hertz  (negative  sign  if  imaginary) . 

DO  334  I  -  1, NMODES 

FVlB(l)  -  SQRT(ABS(FVIB(I)))/(2.*PI)* 

(FVIB(I) /ABS (FVIB(I) ) ) 

CONTINUE 

Print  out  frequency  results. 

NRITEdOUT,  '  (5X,  33F10.2)  •)  QGEO* 

FMODE(0, 'X',NBGEO,1.)*FMODE(0, ' Y' , NBGEO, 0 .) *100 . , 
(FVIB(I) ,I-l,NMODES) 

IF  ( ( .NOT.LGEOM) .OR. dI.EQ.IP) )  THEN 
DO  340  I  -  1, NMODES 
tf4AX  -  QVIB(1,I) 

DO  335  J  -  1, NMODES 

IF  (ABS(0VIB(J,  I))  .GT.ABS((^fAX)) 
gMAX-QVIB(J,  I) 

CONTINUE 

NRITEdOUT,  •  (5X,I2,A,F9.2,A,SP,32F7.3)  ') 

I,'  Freq  "',FVIB(I),'  Hz  ;  mo^  shape  ■■  ', 
(QVIB (J, I) /QMAX,J-1, NMODES) 

C(MTZNUB 

IF  ( (LGEOM) .AND. (II. EQ. IP) )  THEN 
DO  342  I  -  1, MAXMODE 
DO  342  J  -  I, MAXMODE 
MDUM(I,J)  -  M(I,J) 

KDUM(I,J)  -  K(I,J) 

IF  ( (I.GT.NB)  .AND.  (I. LE.NB-tNT)  .AND. 

(J.GT.NB)  .AND.  (J.LE.NB-tNT)  )  THEN 
KDUM(I,J)  -  KDUM(I,J)  * 

R(NBGEO,NBGEO, I-NB, J-NB) *QGEO**2 
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ELSEIF  ( (I .GT.NB) .AND. ( I . LE . NB+NT ) .AND. 
(J.GT.NB+NT+NC) .AND. ( J . DE . NB+NT+NC+NF) )  THEN 
KDUM(I,J)  -  KDUM(I,J)  + 

&  H (NBGEO, I-NB, J-NB-NT-NC) *QGEO 

ENDIF 

MDUM(J,I)  -  MDUM(I,J) 

KDUM(J.  I)  -  KDUMd,  J) 

342  CONTINUE 

WRITE (lOUT, *)  'Mass  matrix:  ' 

DO  344  I  -  l,NMODES 

WRITEdOUT,  •  (99dPE10.2))  ')  (MDUM  (I,  J)  ,  J-1 ,  NMODES) 

344  CONTINUE 

WRITEdOUT,*)  'Stiffness  matrix:  ' 

DO  346  I  -  1, NMODES 

WRITEdOUT,  '  (99dPE10.2>)  ’)  (KDUM  (I,  J) ,  J-1,  NMODES) 
346  CONTINUE 

ENDIF 
C 

ENDIF 

345  CONTINUE 
ENDIF 

Loop  through  tip  force  (12-1)  and  tip  moment  (12-2)  analyses. 
DO  440  12  -  1,2 

IF  dl.EQ.l)  WRITE(*, ’ (A, $) •)  '  Do  plate  tip  ' 

IF  (I1.EQ.2)  WRITE(*, • (A, $) •)  •  Do  wing  tip  ' 

IF  (I2.EQ.1)  WRITE(*, • (A, 5) •)  'force  analysis  ?  ' 

IF  (I2.EQ.2)  WRITE(*, ' (A, $) ')  'moment  analysis  ?  ' 

READ (*, ' (Al) ' )  ANSWER 

IF  ( (ANSWER. EQ. 'N') .OR. (ANSWER. EQ. 'n') )  GOTO  440 

Do  direct  inversion  of  K  matrix  if  no  structural 
nonlinearities . 

IF  ( ( .NOT.LGEOM) .AND. (KTTCUBE.EQ.O. ) )  THEN 
K(NB+1,NB+1)  -  KTTO 
FORCE  -  1. 

DO  347  I  -  1,NB+NT+NC 
QLITd)  -  0. 

IF  d2.EQ.l)  RESd)  -  FMODE(0,  ’X',I,1.)* 

FMODE(0, 'Y', 1,0.) ‘FORCE 
IF  (I2.EQ.2)  RESd)  -  FMODE  (0, 'X' ,  1, 1 . )  * 

FMODE (1,'Y',I,0.) *FORCE/CHOBD 
CONTINUE 

CALL  SOLVE (K, RES, QLIT, MAXMODE, 1, (NB+NT+NC) ) 

DEFLEC  -  0. 

TWIST  -  0. 

DO  348  I  -  1, NB+NT+NC 

DEFLEC  -  DEFLEC  +  QLIT (I) *FMODE (0, 'X' , I, 1 . ) * 

FMODE (0  'Y*  I  0.) 

TWIST  -  TWIST  +  QLIT (I) /CHORD*FMODE (0, 'X', 1,1.)* 
FMODEd,  'Y',I,0.) 

CONTINUE 

DEFLEC  -  DEFLEC*100. 

TWIST  -  ATAN (TWIST) *180. /PI 
IF  (I2.EQ.1)  THEN 

WRITEdOUT,*)  •  F/h  -', FORCE /DEFLEC,  '  N/m' 
WRITEdOUT,*)  •  F/»  -', FORCE/TWIST,  •  N/deg' 

ELSEIF  (I2.EQ.2)  THEN 

WRITEdOUT,*)  •  M/h  FORCE /DEFLEC,  '  Nm/m' 


& 

£ 
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WRITEdOUT,  *)  '  M/a  FORCE/TWIST,  ’  Nm/deg' 

END  IF 
ELSE 

R««d  in  concentrated  flat  plate  force  data. 

IF  ( (Zl.EQ.l) .AND. (12.EQ.1) )  FILENAME  - 
i  TRIM (LAYUP) // 'PNXS. FOR  ' 

IF  ( (Il.EQ.l) .AND. (I2.EQ.2) )  FILENAME  - 
£  TRIM (LAYUP) //'PNXS.MOM  ' 

IF  ( (I1.EQ.2) .AND. (I2.EQ.1) )  FILENAME  - 
£  TRIM ( LAYUP) //’WNXS. FOR  * 

IF  ( (I1.EQ.2) .AND. (I2.EQ.2) )  FILENAME- 
£  TRIM(LAYUP)//' WNXS. MOM  ' 

OPEN ( 3 , FILE-TRIM (FILENAME) , STATUS- ' OLD ' , 

£  FORM- • FORMATTED ' , ERR-360 ) 

IF  (I2.EQ.1)  WRITE  (*,' (2A/) ')  '  Force  data  talcen  from 
£  TRIM (FILENAME) 

IF  (I2.EQ.2)  WRITE (*,•  (2A/)  •)  *  Moment  data  ta)ten  from 
£  TRIM (FILENAME) 

IP  -  0 
XLO  -  0. 

XHl  -  0. 

Read  in  tip  force  (N)  or  moment  (Nm) ,  tip  def lec  (cm) ,  and 
tip  twist  (deg)/  and  determine  LO  and  HI. 

READ (3, */ END-360)  X,Y1,Y2 

IF  (X.GT.XHI)  XHI-X 

IF  (X.LT.XLO)  XLO-X 

IP  -  IP+l 

GOTO  350 

CLOSE (3) 

IF  ((Il.EQ.l)  .AND.  (12. EQ.D)  FILENAME  - 
£  TRIM (LAYUP) //'PNAS. FOR  * 

IF  ( (Zl.EQ.l) .AND. (12. EQ. 2) )  FILENAME  - 
£  TRIM (LAYUP) //‘PNAS. MOM  ' 

IF  ( (I1.EQ.2) .AND. (I2.EQ.1) )  FILENAME  - 
£  TRIM (LAYUP) // 'WNAS. FOR  ' 

IF  ( (I1.EQ.2) .AND. (I2.EQ.2) )  FILENAME  - 
£  TRIM(LAYUP)//'NNAS.MOM  ' 

OPEN (3, FILE-TRIM (FILENAME) , STATUS- 'NEW' / 

£  FORM-' FORMATTED ',ERR-440) 

XLO  -  2.*XLO 

XHI  -  2.*XHI 

UMAX  -  IP*8 
DO  430  IZ  -  1,IIMAX 

Calculate  current  force/moment  value. 

FORCE  -  XLO  *  (XHI-XLO)*REAL(II-l)/REAL(IIMAX-l) 

IF  (Z2.BQ.1)  NRITE(*, ' (A,F9.3/A) ')  '  Calculating  '// 

£  'for  force  -'/FORCE,'  N* 

IF  (I2.EQ.2)  WRITE(*, • (A,F9.3,A) ’)  ’  Calculating  '// 

£  'for  mooMnt  -'/FORCE,'  Nn' 

Initialize  modal  amplitudes  and  residuals. 

K(NB+1,MB+1)  -  KTTO 
DO  370  I  -  l/NB+NT+NC 
QLIT(I)  -  0. 

IF  (I2.EQ.1)  RES(I)  -  FMODE(0, 'X',I,1.)* 
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&  FMODE (0, 'Y' 0 .) 'FORCE 

IF  (I2.E0.2)  RESU>  -  FMODE  (0, 'X’ ,  1,  1 . )  * 

&  FMODEd,  'Y',  1,0.) 'FORCE /CHORD 

370  CONTINUE 

C 

C  Loop  through  Newton-Raphson  solver  until  converged. 

C 

CONVERGED  -  .FALSE. 

DO  WHILE  ( .NOT. CONVERGED) 

C 

C  Calculate  derivative  matrix. 

C 

DO  380  1  -  1,NB+NT+NC 
DO  380  J  «■  l,NB+NT-»-NC 
DRDQ(I,J)  -  -K{I,J) 

380  CONTINUE 

DRDQ(NB+1,NB+1)  -  DRDQ (NB+1, NB+1) -2 . *KTTCUBE* 

&  QLIT(NB+1) **2 

C 

C  Apply  Newton-Raphson  step. 

C 

CALL  SOLVE (DRDQ, RES, DQ, MAXMODE, 1,NB+NT+NC) 

DO  390  I  -  1,NB+NT+NC 

QLIT(I)  -  QLIT(I)-DQ(I) 

390  CONTINUE 

C 

C  Calculate  new  residuals  and  test  for  convergence. 

C 

K (NB+1, NB+1)  -  KTT0+KTTCUBE*QLIT(NB+1) **2 
CONVERGED  -  .TRUE. 

DO  410  I  -  1,NB+NT+NC 

IF  (I2.EQ.1)  RES(I)  -  FMODE  (0, 'XM,  1.)  * 

«  FMODE(0, 'Y',I,0.) *FORCE 

IF  (I2.EQ.2)  RES(I)  -  FMODE (0, 'X',!, 1 .) * 

&  FMODEd, 'Y',  1,0.)  *FORCE/CHORD 

DO  400  J  -  1,NB+NT+NC 

RES(I)  -  RES(I)  -  K(I, J) *QLIT(J) 

400  CONTINUE 

IF  (ABS (RES (I) ) .GT.l.E-6)  CONVERGED- . FALSE . 

410  CONTINUE 

C 

END  DO 
C 

C  Calculate  tip  deflection  (in  cm)  and  tip  twist  (in  deg) . 

C 

DEFLEC  -  0. 

TWIST  -  0. 

DO  420  I  -  1,NB+NT+NC 

DEFLEC  -  DEFLEC  +  QLIT (I> *FMODE (0, 'X’ , I, 1 . ) + 

«  FMODE(0, •Y',I,0.) 

TWIST  -  TWIST  +  QLIT(I)/CHORD*FMODE(0, 'X’,I,1.)* 

&  FMODEd, ’Y’,  1,0.) 

420  CONTINUE 

DEFLEC  -  DEFLEC* 100. 

TWIST  -  ATAN (TWIST) *180. /PI 
WRITE(3, • (3(1PE12.4) ) •)  FORCE, DEFLEC, TWIST 
C 

430  CONTINUE 

CLOSE (3) 

END  IF 
C 

440  CONTINUE 
CLOSE (2) 

C 


999  RETURN 
END 

C - ril.1:  STIFF. FOR - 

C 

SUBROUT INE  QUCON (EL,ET,NULT,GLT,QU11,QU12,QU22,QU66) 

C 

C  Subroutin#  to  compute  the  unidirectional  elastic  constants,  the 

C  uni-directional  Q's,  from  the  ply  engineering  elastic  constants 

C  (all  in  Pa)  . 

C 

REAL  BL,ET,NULT,NUTL,GLT 
REAL  QU11,QU12,QU22,QU66 
C 

MUTL  -  ET/EL*NULT 
DENOM  -  l.-NULT*NUTL 
QUll  -  EL/OENOM 
QU12  -  NULT*ET/DENOM 
QU22  BT/OENOM 
QU66  •  GLT 
RETURN 
END 
C 


o  n 

f 

n 

SUBROUTINE 

QTCON ( K, THETA, QUl 1 , QU12 , QU22 , QU6  6 , QT ) 

c 

Subroutine 

to  compute  the  rotated  elastic  constants,  the  Q [theta] 

c 

n 

(Pa),  for 

the  K-th  ply,  laid  up  at  an  angle  theta  (rad) . 

w 

INTEGER 

R 

REAL 

THETA, QUl 1 , QU12, QU22 , QU66 

REAL 

11,I2,R1,R2,QT(3,3,*) 

c 

Calculate 

the  invariants 

C 

11  -  (QUll 

+  QU22  +  2.*QU12)/4. 

12  «  (QUll 

+  QU22  -  2.*QU12  +  4.*QU66)/8. 

R1  -  (QUll 

-  QU22)/2. 

n 

R2  -  (QUll 

+  QU22  -  2.*QU12  -  4.*QU66)/8. 

QT(1,1,K) 

-  11  +  12  +  Rl*COS(2.*THETA)  +  R2*COS (4 . *THETA) 

QT(2,2,K) 

-  11  +  12  -  Rl*COS(2.*THETA)  +  R2 *COS ( 4 . *THETA) 

QT(1,2,K) 

-  11-12  -  R2*COS(4.*THETA) 

QT(3,3,K) 

-  12  -  R2*COS(4.*THETA) 

QT(1,3,K) 

•  Rl*SIN<2.*THETA)/2.  *  R2*SIN(4 . •THETA) 

QT(2,3,K) 

-  Rl*SZM(2.«THETA)/2.  -  R2*SIN(4 . •THETA) 

QT(2,1,E) 

•  QT(1,2,K) 

QTC3«1,K) 

-  QT(1,3,K) 

QT«>»1*E) 

-  QT{2,3,K) 

C 

c 

SUBROOTXIIB 

BEND (NPLIES , ZU, ZL, QT, A, D) 

c 

Subroutine 

to  compute  the  laminate  bending  stiffnesses. 

c 

Aij  (N/a) 

«  Dij  (N-a) . 

INTE(»R 

NPLIES 

REAL 

ZU(^),ZL(^),QT(3,3,^) 

REAL 

A(3,3),D(3,3) 

C 
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Initialize  the  A  and  D  matrices. 


DO  10  I  -  1,3 
DO  10  J  -  1,3 
A(I,J)  -  0. 
D(I,J)  -  0. 
0  CONTINUE 


Add  the  contribution  of  each  ply  to  the  A  &  D  matrices. 


DO  30  I  - 
DO  30  J  - 
DO  30  K  - 
Ad,  J) 
Dd,  J) 
0  CONTINUE 


1,3 

1,3 

1,NPI.IES 

-  A<I,J)  +  QTd,  J,K)  *(2U(K) -2L(K)  ) 

-  Dd,J)  +  QTd,  J,K)«(2U<K)  **3-2L(K)  **3) /3. 


RETURN 

END 


SUBROUTINE  STIFF (A, D, LO, HI) 

Subroutine  to  compute  the  stiffness  matrix,  Kij  (N/m) . 

INCLUDE  PARAM.INC 

INCLUDE  GLBBLK . INC 

REAL  A(3,3),D(3,3),LO,HI,INTGRL 

NOTE:  INTGRL(XY, I, ID, J, JD,lo,hi)  is  the  function  to  numerically 
integrate  the  XT-variation  of  the  ID-th  derivative  of  the  I-th 
mode  with  the  JD-th  derivative  of  the  J-th  mode  between  the 
interval  Clo,hi]. 

DO  10  I  -  1,NB+NT+NC 
DO  10  J  -  I,NB+NT+NC 

Calculate  out-of-plane  stiffness  matrix  components. 

Kd,J)  -  (CHORD* LENGTH)  *  (D  ( 1 , 1)  *INTGRL ( ' X' ,  I,  2,  J,  2,  LO, HI)  * 

«  INTGRL( 'Y', I, 0, J, 0, -.5,+.5) /LENGTH**4  +  D (2, 2) *INTGRL { ' X ' , 

«  I,0,J,0,LO,HI)*INTGRLCY',I,2,J,2,-.5,  +  .5)/CHORD**4  +  4.* 

i  D(3,3) ‘INTCRLC 'X', 1, 1, J, I,LO,HI) •INTGRL{ 'Y’ ,  1, 1,  J,  l,-.5, 

(  +.5) / (LENGTH*CHORD) **2  +  D (1 , 2) * (INTGRL ( 'X* , I, 2, J, 0, LO, HI) * 

(  INTGRL{'Y',I,0,  J,2,-.5,  +  .5)*INTGRL('XM,0,  J,2,LO,HI)  * 

«  INTGRL{'Y’,1,2,J,  0,-.5,-*-.5))/(LENGTH*CHORD)**2  +  2.* 

k  D(l,3)*dNTGRL('X',I,2,  J,  l,LO,HI)  *INTGRL  ( '  Y' ,  I,  0,  J,  1,  - .  5, 

«  +.5)+INTGRL('X',I,l,J,2,LO,HI)  ‘INTGRLC'YM,!,  J,0,-.5,  +  .5)  )  / 

«  (LENGTH* *3 ‘CHORD)  +  2 . *D (2 , 3) • dNTGRL ( ' X',!, 0, J, 1,  LO,  HI) * 

&  1NTGRL('Y',I,2,  J,l,-.5,  +  .5)*INTGRL('XM,l,  J,0,LO,HI)* 

k  INTGRL('YM,1,  J,2,-.5,<-.5))/(LENGTH*CHORD**3)) 

K(J,I)  -  Kd,J) 

0  CONTINUE 

IF  (NF.GT.O)  THEN 
DO  20  I  -  1,NB+NT+NC+NF 

DO  20  J  -  MAXO  d,NB+NT+NC+l)  ,NB+NT+NC-t-NF 

Calculate  fore-S-aft  stiffness  matrix  components. 

IF  (I.LE.NB+MT+NC)  THEN 
Kd,J)  -  0. 

ELSE 
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K(I,J)  -  (CHORD ‘LENGTH)  »  (A  (1, 1) ‘INTGRL  (  '  X  M,  2,  J,  2,  LO,  HI )  • 

£  INTGRLCYM,0,  J,0,-.5,  +  .5)/LENGTH**4  +  A(2, 2) ‘IMTGRL  CX' , 

«  I,0,J,0,LO,HI)*INTGRL('YM,2,J,2,-.5,  +  .5)/CHORD**4  +  4.* 

£  A(3,3)*INTGRL('XM,1,  J,1,L0,HI)»INTGRL('YM,1,  J, 

£  +.5)  /  (liENGTH*CHORD)  ••2  +  A  {1, 2)  *  (INTGRL  { ’X',!,  2,  J,  0,  LO,  HI)  * 

£  INTGRLCYM,0,  J,2,-.5,  +  .5)+INTGRLCXM,0,  J,2,LO,HI)  * 

£  INTGRL('YM,2,J,0,-.5,  +  .5))/(LENGTH*CHORD)**2  +  2.* 

£  A(l,3)  *(INTGRL('XM,2,  J,  l,LO,HI)  ‘INTGRL  ( '  YM,  0,  J,  1,  - .  5, 

£  +.5)+INTGRL('X',I,l,J,2,I,O,HI)*INTGRL{'YM,l,J,0,-.5,  +  .5))/ 
£  (LENGTH* *3 ‘CHORD)  +  2 . ‘A (2, 3) * (INTGRL ( 'X* , I, 0, J, 1, LO, HI) * 

£  INTGRL('YM,2,  J,  l,-.5,  +  .5)+INTGRL('XM,l,  J,0,LO,HI)* 

£  INTGRLCYM,!, J,2,-.5,  +  .5))/(LENGTH*CHORD**3))  * 

£  (CHORD“2/12.) 

K(I,J)  -  (CHORD ‘LENGTH)  *  A (1, 1) ‘INTGRL ( 'X' , I, 2, J, 2, LO, HI) ‘ 

£  INTGRLCYM.O,  J,  0,-.5,  +  .5)/LENGTH“4  *  (CHORD“2/12  . ) 

ENDIF 

K(J,I)  -  K(I,J) 

CONTINUE 

ENDIF 

RETURN 

END 
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FILE:  PARAM.INC 


"Include"  file,  PARAM.INC,  which  describes  the  general 
paraoeters  of  the  stall  flutter  analysis  programs. 

PARAMETER  (PI-3.141592653589793238) 

PARAMETER  (RHOA-1.226) 

PARAMETER  (RMUA-1 . 78E-5) 

PARAMETER  (MAXPLIES-20 ) 

PARAMETER  (NBMAX-10) 

PARAMETER  (NTMAX-10) 

PARAMETER  ( NCMAX- 2 ) 

PARAMETER  (NFMAX-10) 

PARAMETER  (HAXMOOE-32) 

PARAMETER  {MAXREG-5) 

PARAMETER  (MAXPOW-20) 

RHOA:  Air  density  in  ltg/m"*3 

RMUA:  Air  coefficient  of  viscocity  in  kg/m-sec 

MAXPLIES:  Maximum  allowable  number  of  plies  in  analysis 

NBMAX:  Maximum  allowable  number  of  bending  modes  in  analysis 

NTMAX:  Maximum  allowable  number  of  torsion  modes  in  analysis 

NCMAX:  Maximum  allowable  number  of  chordwise  bending  modes 

NFMAX:  Maximum  allowable  number  of  fore/aft  modes  in  analysis 

MAXMOOE:  Maximum  allowable  number  of  mode  shapes  in  analysis 

MAXREG:  Maximum  allowable  number  of  describing  regions 

for  aerodynamic  force  curves 
MAXPOW:  Maximum  allowable  polynomial  power  for  each 

describing  region  for  aerodynamic  force  curves 


•FILE:  GLBBLK.INC  - 

"Include"  file  to  describe  variables  used  globally 
by  most  programs  in  the  stall  flutter  analysis. 

REAL  RE, CHORD, LENGTH, LAMBDA, KTTO,KTTCUBE 

REAL  M ( MAXMOOE , MAXMODE ) , K ( MAXMODE , MAXMODE ) 

REAL  MDUM (MAXMODE, MAXMODE) ,KDUM (MAXMODE, MAXMODE) 

REAL  QVIB (MAXMODE, MAXMODE) ,FVIB (MAXMODE) 

REAL  FVl (MAXMODE) , FV2 (MAXMODE) 

REAL  H(0:NBMAX, NTMAX, NFMAX) 

REAL  R(0:NBMAX,0:NBMAX, NTMAX, NTMAX) 

REAL  BETA,  KT (NTMAX) , G (NTMAX) , F (NTMAX) , B (NTMAX, 4 ) 

INTEGER  NB,MT,NC,NF,NMOOES, ATYPE 

LOGICAL  LINEAR, STEADY, REDUC,CORREC 

LOGICAL  VLINES,LATAN,LAEROF,LCONST,LGEOM 

CHARACTER  F0IL*5 

CHARACTER*2  MIABEL (MAXMOOE) 

CCM40N  RE, CHORD, LENGTH, LAMBDA, KTTO, KTTCUBE, M, K 

COtMON  MDUM,KDUM,QVIB,FVIB,FV1,FV2,H,R 

COIMON  BETA, KT, G, F, B, NB, NT, NC, NF, NMODES 

COIMOM  ATYPE, LINEAR, STEADY, R£DUC,CORREC,VLINES 

COIMON  LATAN, LAEROF, LCONST, LGEOM, FOIL, MLABEL 

RE;  Reynold's  number  (non-dim) 

CHORD:  Chord  length  (m) 

LENGTH:  Half -span  (m) 

LAMBDA:  Sweep  angle  (deg) 

KTTO:  Torsional  linear  term  (N/m) 

KTTCrUBE:  Torsional  cubic  factor  (l/m**2) 

M(i,j):  Mass  matrix  (kg) 

K(i,j):  Stiffness  matrix  (N/m) 

BETA, KT,G,F,B:  Coefficients  of  torsional  mode  shapes 
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MB: 

NT: 

NT: 

NC; 

NMOOCS: 

ATYPE: 

LINEAR: 

STEADY: 

REDUC: 

CORREC: 

VLINES: 


LATAN: 


LAEROF: 


LCONST : 
FOIL: 


Number  of  bending  modes  in  analysis 
Number  of  torsion  modes  in  analysis 
Number  of  fore-aft  modes  in  analysis 
Number  of  chordwise  bending  modes  in  analysis 
Total  number  of  modes  in  analysis 

Type  of  aerodynamic  analysis  to  use  [see  AEROF.FOR] 
Logical  variable,  if  linear  analysis  is  to  be  done 
Logical  variable,  if  steady  analysis  is  to  be  done 
Logical  variable  to  tell  if  finite-span  reduction  is 
to  be  applied  to  aerodynamic  forces 

Logical  variable  to  tell  if  spanwise  correction  is  to 
be  applied  to  spanwise  integrations 

Logical  variable  to  tell  if  constant  velocity  lines  or 
constant  angle  lines  are  to  be  calculated  by  analysis 
Logical  variable  to  tell  if  exact  angle  or  small- 
angle-approximations  are  to  be  applied  to  angle 
calculations 

Logical  variable  to  tell  whether  to  print  diagnotics 
each  time  the  AEROF  unsteady  aerodynamics  subroutine 
is  called 

Logical  variable  to  tell  whether  to  use  constant 
coefficients  in  unsteady  aerodynamic  analysis 
Character  variable  that  denotes  airfoil  type 


FILE:  GAUSS. INC 


INTEGER 

PARAMETER 

REAL 

DATA 

« 

« 

DATA 


( 


GPOINTS 

(GPOINTS-12) 

GP (GPOINTS) , GW (GPOINTS) 

GP/-. 961560634, -.904117256, -.769902674, 
-.587317954, -.367831499, -.125233409, 
.125233409, .367831499, .587317954, 
.769902674, . 904117256, . 981560634/ 
GW/. 047175336, . 106939326,  . 160078329, 
.203167427, .233492537, .249147046, 
.249147046,  .233492537, .203167427, 
.160078329, .106939326, .047175336/ 


Photo  courtesy  Christopher  J.  Andrews 
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